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The Jade Big Z CPU board is a Z80 Main processor card for the S-100 computer bus system 
developed around 1980. The board was developed before the IEEE-696 standards were put 
into effect so there are a few complications when using this card with more modern S-100 
systems. 


The card was known as “The Big Z” or the “JGZ80” board and had revisions A through C with the 
C version being the final version produced. The board offers the following features... 


Zilog Z-80 CPU 

EPROM onboard accessed on 1K, 2K or 4K boundaries (2708, 27C16 or 27C32) 

POJ power on jump to EPROM at boot 

one M1 wait state 

8251 USART onboard for RS-232 communication to another Host or Terminal/Console 
CPU speed selectable between 2Mhz and 4Mhz 

Front Panel DIP connector to enable using a front panel (IMSAI ) 

Fully buffered S-100 address and data lines 

Voltage regulators for all onboard voltages 
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The Jade Big-Z revision “C” 


The Jade board was engineered before the IEEE specifications were finalized and therefore 
some incompatibilities exist. 


sXTRQ* — Pin#58 is not implemented on the Big Z (16 bit wide I/O request) 

pSTVAL*- Pin#25 is not implemented (signals when address and status lines are valid) 
SIXTN* - Pin#60 is not implemented (this is an acknowledgement to the sXTRQ* signal) 
RFSH* - Pin#66 is implemented by the Big Z on undefined S-100 pin#66 (Memory Refresh) 
MRQ — Pin#65 is implemented by the Big Z on undefined S-100 pin#65 (Memory Request) 
pWAIT- Pin#27 is implemented by the Big Z on undefined S-100 pin#27 (Wait signal) 
DMAO* — Pin#55 is not implemented (temporary bus master signal) 

DMA1* — Pin#56 is not implemented (temporary bus master signal) 

DMA2* — Pin#57 is not implemented (temporary bus master signal) 

DMA3* — Pin#14 is not implemented (temporary bus master signal) 

GND — Pin#20 is not implemented 
GND — Pin#53 is not implemented 
GND — Pin#70 is not implemented 
CLOCK1 or PHI 1 — Pin#25 is implemented and in violation of IEEE standards 
The Pin#9 on U29 has been bent out to disconnect this line from the S-100 Bus 
S-100 Pin#25 should be pSTVAL* and is not implemented, could cause problems. 


NOTE: If the “S100Computers.com” System Monitor Board V2 or later is used, U29 
should remain intact. The SMB requires pSTVAL* to operate but an inverted PHI 1 on 
S-100 Bus Pin#25 will enable the SMB Address Display to function (pSTVAL* hack for 
slower boards). 


e SSWDSB*- Pin#53 is implemented and in violation of IEEE standards (Sense switch disable) 
The S-100 bus Pin#53 is a GND line. On the Jade Big Z, the S-100 bus pin#53 has been cut 
at pull-up resistor pack U31 pin#8. 


It has been noted that the Jade Big Z does not work with all memory cards. Most reliable 
operation of the Jade Big Z will be accomplished using Static RAM memory cards with 8 Data 
lines and 16 Address lines. Dynamic RAM boards work, but may require rebooting a few times 
before stable (ie...Jade Memory Bank). So, memory boards that have been used and verified 
working with the Jade Big Z are the “S100Computers.com” 4MB memory card, Jade Memory 
Bank, Static Memory Systems “The Last Memory Board” and the Compupro RAM-20. There 
should be many more boards that work but these are the ones available for testing. The Jade 
can access 64K of RAM but has no provision for memory paging or extended addressing (A16- 
A23). 


EPROM INTERFACE: 


e Use only single voltage EPROM or EEPROM 


Voltage +5V DC 


e Cut trace L to E on Big Z to isolate (-5V) 
Note: Remove C12 as it interferes with A11 


e Cut trace F to M on Big Z to isolate (+12V) 


e Cut trace G to H on Big Z to isolate (A11) 


The Jade Big Z will accommodate three types of EPROM’s (2708, 27C16 or 27C32). The board is 
originally configured for the 2708 EPROM but due to it’s small 1K size and limited supply, it was 
never used. There are jumpers on the board to configure the card for the other two EPROM 
types. In fact, there are just two wires to connect for Pin#21 on the EPROMS (either Vpp or 
A11). All other connections remain the same for the 27C16 and the 27C32. EEPROMS such as 
the Atmel AT28C16 can also be used in place of a 27C16 EEPROM. There is no counterpart for 
the 27C32 though. 


The EPROM is first accessed at power on (if the POJ option is enabled) by starting at address 
OOOOH and moving upward in address space until the address space set for the EPROM is 
reached. When this happens, the EPS* signal becomes active low, and the EPROM is enabled. 


Code in the EPROM is then read and acted upon by the Z80 CPU. Typically this is where the 
Monitor Program for the Jade Board would reside in EPROM at a high address range such as 
E800H, FOOOH or F800H (more on this later). 


The DIP Switch U33 is used to select the address for the EPROM. The Big Z is capable of utilizing 
“Shadow EPROM” mode that will enable the EPROM on boot-up, but thereafter will not be seen 


by the system. This might be useful for a boot to Disk System (refer to the users manual for 
details). 


Wiring up a 27C16 EPROM is as follows... 


27C16 EPROM: 

ADDR-FOOOh to F7FFh 

[1114 OXXX ...] to [1111 OXXX ...] 
A15 A14 A13 A12 A11 A10 


A10 NOT monitored by Comparator 
A11 1S monitored by Comparator 

H to G = MONITOR A111 

U33 SW7 = GND A10 MONITOR 


H {X’) 


POJ 
M1WAIT 
A2 


B4 B 
(MONITORED BUS) 
(COMPARE STATE) 


NAND 
7410 
[tom ome) 
co 
[tom ame) 
om 
co 
oo 
Gor} 46 
oo 


Cc 
nN 


*NOTE: (C) is connected to (B) by trace 


Wiring the 27C16 only requires running a wire-wrap wire from Point (E) to Point (+5V), this 
routes +5V to Pin#21 on the EPROM which is Vpp that needs to be High to operate. 

Then run a wire-wrap wire from Point (H) to Point (G) thereby routing the A11 comparator bus 
sense input to A11. That’s it as all other wires are already attached. 


e@ Wire (E) to (+5V) 
e@ Wire (H) to (G) 
e Wire (C) to (A) 


The DIP Switch address for the EPROM has to be set using the U33 DIP Switch. See the section 
below on how to do this. 


Wiring up a 27C32 EPROM is as follows... 
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27032 EPROM: 
ADDR-F000h to FFFFh 

[1111 XXX...] to [1114 XXX..] 
AMS Ai4 A13 A12 Alt A10 


Oo Oo 0 0 C C 


A10 NOT monitored by Comparator 
A11 NOT monitored by Comparator 
H to |= GND A11 MONITOR 

U33 SW7 = GND A10 MONITOR 
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*NOTE: (C) is connected to (B) by trace 


Wiring the 27C32 only requires running a wire-wrap wire from Point (E) to Point (G), this routes 
address line A11 to Pin#21 on the EPROM which is A11. Then run a wire-wrap wire from Point 
(H) to Point (I) thereby grounding the A11 comparator bus sense input. That’s it as all other 
wires are already attached. 


e Wire (E) to (G) 
e@ Wire (H) to (I) 
e Wire (C) to (A) 


The DIP Switch address for the EPROM has to be set using the U33 DIP Switch. See the section 
below on how to do this. 


EPROM ADDRESS SELECTION: 


The EPROM address is selected by using U33 to enter the required address to activate the EPS* 
signal for the EPROM enable. The chart below illustrates some possible locations in High 
Memory for the EPROM to reside (27C16 or 27C32). Since the 27C16 is a 2Kx8 device there are 
smaller memory blocks allocated to it. The larger 27C32 is a 4Kx8 device and therefore fewer 
choices. The bits to the left of the red line are bits that identify memory blocks. These can be 
entered into the DIP switch by using an “open switch” as a logic 1 and a “closed switch” as a 
logic 0. A11 is special and A10 is not used unless a lower memory address is used. By “special”, 
this means the Jade Big Z has added a complicated way to represent these two bits. This is to 
allow more versatility for address selection to the board. 


A10 or GND 
goionny 
A15_ A14_ A13_A12_ A11' A10' GND A10 


27C16 EPROM: (8 X 2K) REVISION "C" BOARD Jade Big Z 
A16 A15 Ai4 A13 A12 A11 A10 AQ AB AZ AG AS A4 AZ AZ AT AD 
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C800-CFFF pso0-DFFF O O C O c Cc O 
po00-D7FF O O C O Cc Cc O 
cso0-cFFF O O C C Cc Cc O 
aan ‘ SPECIAL 
27C32 EPROM: (8 X 4K) REVISION "C" BOARD Jade Big Z 
A16 AIS A14 A13 A12 A11 A10 AQ AB AT AB AS AS AZ AZ AT AOD A10 or GND 
A13_A12_ Att" Ato! GND A10 
F000-FFFF LoGic"o" 
co 
2 U33 
3S E000-EFFF 
Locic"1" 
D000-DFFF 
FO00-FFFF 
E000-EFFF 


D000-DFFF 


C000-CFFF C000-CFFF 


H (Xx) 


=a. 
“NOTE: DIP switches "5", "6", "7", and "8" have a special function on the Jade Big Z (MONITORED BUS) BS BI 
Revision "C" board. U34 COMPARATOR-8131 
DIP Switch 5 is typically wired to monitor A11, but it can also monitor anything on TP-H {COMPARE STATE) 


so TP-H can be connected to TP-G to monitor A11 or TP-H can be wired to GND to force "0" 
DIP Switches 6, 7, and 8 all work together. Switch 6 sets the Compare State (0 or 1) 

DIP Switches 7 and 8 route either GND or A10 to the monitor bus point "B1" on U34 

DIP Switches 7 and 8 must be either (C, O) or (O, C) but never both closed or both open 

(C, C) would ground A10 - bad, and (O, O) would leave a floating input on U34, also bad 
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Note the drawing on the lower right of the DM8131 comparator and DIP Switch. For a 27C32 
the A11 line is routed to the EPROM via point (G) and the S5 switch is simply set O or Cas 
shown in the charts. A10 on the other-hand is hard-wired to the DM8131 and it’s selection is 
accomplished by using three switches S6, S7 and S8. 


The A10 logic state is selected by DIP S6 and will select the logic level to be compared as 
described above. S7 and S8 will route either A11 or GND (logic 0) to the bus comparator circuit 
side of the DM8131. S7 is the GND signal line and S8 is the A10 signal line. Either of these 
signals can be routed to the DM8131 but not both. Refer to the diagram above to clarify. 


In the example chart shown above, the 27C32 does not use the A11 or A10 to enable the 
EPROM. 


e = Point (H) is tied to (GND) physically on the board with wire-wrap thereby setting the bus 
comparator sense input to “O” taking it out of the picture (not used). 

e A111 DIP SS is closed or “0” thereby making it match the unchanging bus comparator input 
and taking it out of the picture (not used). 

e DIP S7 is closed “O” and DIP S8 is open not allowing A10 to reach the comparator input and 
taking it out of the picture (not used) 

e A110 DIP S6 is closed or “O” thereby making it match the unchanging bus comparator input 


and taking it out of the picture (not used). 


The same process is used for the 27C16 except A11 is used and only A10 has to be adjusted 
using DIP S6, S7 and S8 to get it out of the picture. 


e DIP S7 is closed “O” and DIP S8 is open not allowing A10 to reach the comparator input and 
taking it out of the picture (not used) 

e A10 DIP S6 is closed or “O” thereby making it match the unchanging bus comparator input 
and taking it out of the picture (not used). 


This is how the address is set for the EPROM. There are charts in the Jade Big Z manual that 
just give the “O” or “C” positions of the U33 DIP switch, but there are errors in the chart 
depending upon which revision of the board is being used. The above information describes 
how the DIP switch is set for any address and applies to the revision “C” version of the board. 


Remember that capacitor C12 is installed for filtering the surge current when using the -5 volt 
supply on a 2708 EPROM. This capacitor appears to attenuate or distort the A11 signal to a 
2732 EPROM making the EPROM incapable of being accessed. This may be due to bad 
capacitors used on the Jade Board as some of the .Imfd monolithic capacitors have been found 
to be shorted out. In any case, if not using the 2708 EPROM it is a good idea to remove the C12 
capacitor located directly below the 1.8432 MHz crystal. 


8251 USART: 


The Jade Big Z has an onboard 8251 USART to be primarily used as a console input/output 
allowing the Jade to communicate to the outside world. The USART could also be used as an 
RS-232 serial port but there are better dedicated cards that perform this function so this limits 
the USART to console I/O. 


The connector for the USART is the DIP socket U19 on the Jade board. One side of this socket is 
used for the RS-232 communication and the other side can be used for a front panel 
connection. NOTE PIN#1 LOCATION ON U19! DON’T INSERT PLUG BACKWARDS! 


Pin3 

Transmit 
Pin2 Data (TD) 

Receive Data Pin4 
Pin 4 (RD) Data Terminal A DB-9 (RS-232) cable can be constructed 
Data Carrier Ready (DTR) 


Detect (DCD) by wiring the following pins... 


e@ TXD (Pin12) to RD (Pin2) 
@ RXD (Pin16) to TD (Pin3) 
e@ GND (Pin15) to Ground (Pin5) 


Ready (DSR) 


Ringing Indicator (RI) 
Pin? ing That’s it, no handshaking required 


P 
Request to 
Send (RTS) ret to Send 


TS) 


There is a “Reverse Channel” signal line provided by the Big Z on Pin#14 of U19. RVC can be 
used as a “Busy” or “Data Not Ready” signal from the Host Equipment to the Jade Big Z USART. 
This would be accomplished by wiring U19 Pin#14 (RVC) to Pin#6 (DSR). 


In practice, for console I/O, this signal was not needed as the Big Z controlled all communication 
and would be fast enough to loop waiting for a keyboard input from the USART and then 
sending output back at such a slow data rate (9600 baud) that both Host and Jade had no 
problem keeping up. The other end of the cable should be connected to a RS-232 (VT-100) 
capable terminal (+/- 12VDC). A PC running emulation software. A laptop or any other terminal 
device can be used. One option is to use the Propeller driven “Pocket Term” by Briel 
Computing. 
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A VGA Monitor is connected to the “blue” connector in the picture above. The Big Z RS-232 
cable is connected to the “HOST” connector (one of two on back) and an IBM keyboard is 
connected to the PS/2 connector on the front of the board. The (2) jumpers in the middle may 
have to be switched (they act as gender changers). When working, the following is displayed... 


Pp <G>) TEST eye ae <P MMA 
ORD <U>G! ADS CED UEK 
aR 


Address for the 8251 USART: 


The USART is accessed as one of 255 Ports available to the Z80 CPU. The address of the USART 
Port is set by using DIP Switch U23 (S1-S6). The USART appears to the Z80 as two consecutive 
port I/O address. U24 on the Big Z decodes a group of four consecutive addresses and the two 
lower addresses are used for USART communication. An “ODD” address will select the “Status 
Port” and an “EVEN” address will select the “Data Port”. 
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U23 is used to set the Port Address for the USART. In this example, the USART has been 
assigned Port 10H and Port 11H as Data Port and Status Port. 


10H = [0001 0000]B A7 AG AS A4 A3 A2 
11H = [0001 0001]B 0001 00 


OR 


A7_ A6_ AS A4 A3 A2 


cc ¢C O CC C 


So this is what is entered into the U23 DIP Switch (S1-S6). 


As to the 8251 USART itself, different commands can be entered to the USART and different 
status bits can be used to indicate conditions within the USART itself such as “BUSY”, “READY 
TO SEND” ect... 


DATA PORT & STATUS PORT: 


As mention above, the two Ports chosen for the USART communication are described as Data 
Port and Status Port. These are 8-bit words used to transmit data to and from the Big Z. 


DATA PORT AT (10h) STATUS PORT AT (11h) 


x [x [x [x] x] x] x] x] SRRRBHOR 


D7 D6 D5 D4 D3 D2 D1 DO D7 D6 DS D4 D3 D2 D1 DO 


In it’s most simple form, the Status Port provides hand shaking control while the Data Port 
actually transmits and receives the 8-bit data word. A code snippet to do this is shown below... 


INPUT: IN A,(11H) ;Read keyboard status [0000 00X0] 
AND 02H ; 02H = [0000 00XO] evaluate the “Xx” 
Z,INPUT ;Loop if not ready, [0000 0010]=RDY [0000 0000]=NOT RDY 
A,(10H) ;Get keyboard data 


OUTPUT: A,(11H) ;Read keyboard status [0000 0X00] 
04H ; 04H = [0000 0X00] evaluate the “X” 
Z,OUTPUT ;Loop if busy, [0000 0000]=BUSY [0000 0100]=NOT BUSY 
A,C 
A,(10H) ;Output character to console 


This is how data gets into and out of the Jade Big Z; but before this can happen, the 8251 USART 
must be initialized via software. This is quite complex but offers great versatility without hard 
wiring the USART. 


PROGRAMMING THE 8251 USART: 
Before the 8251 USART can be used for anything, it must be initialized with word length, stop 


bits, parity and parity type. This is done by sending a “MODE WORD?” to the 8251 prior to 
communicating with it. A MODE WORD is described as follows... 


BITS IN THE DATA REGISTER: MODE WORD 


D7 D6 D5 D4 D3 D2 D1 DO 


PP DPE DEL To] 
es Baud Rate Factor [OO=ASYNC, 01=1x, 10=16x, 11=64x] 


Normal Mode=Synchronous; Asynchronous Mode=[00] see 8251 manual 
Bits per Character [00=5, 01=6, 10=7, or 11=8] 

Parity [1=Parity, O=No Parity] 

Parity [1=Even Parity, 0=Odd Parity] 


Stop Bit [00=Invalid, 01=1 bit, 10=1-1/2 bit, 11=2 bit] 


So, to initialize the 8251 USART for 8 data bits, no parity, odd parity, and 1 stop bit, the 
following “MODE WORD” would be sent to the 8251 USART... 


[0100 1110]B or [4E]H is the MODE WORD sent to the USART 


After writing the Mode Word to the 8251, there should be a slight delay and then the 
“COMMAND WORD” would be sent. The delay is accomplished by using a “LD A” instruction 
followed by the Command Word. The Command Word is sent to control the transmit or receive 
function of the USART. 


BITS IN THE DATA REGISTER: COMMAND WORD 
D7 D6 D5 D4 D3 D2 D1 DO 


Initiate TX = 33H 
xT xP xp xp xp] x] x] ipuate ax = 36H 


Reset = 40H 
Initiate both TX and RX = 37H 


The Mode and Command Word are sent only once after a power-on sequence or reset is 
performed. 


The Status Register of the USART is used to determine operating conditions within the 8251 
USART as follows... 


BITS IN THE STATUS REGISTER: 
D7 D6 DS D4 D3 D2 D1 DO 


Px] [xp xf xp 
| L— Transmitter Buffer [1=RDY] buffer is empty & ready for more 
Receive Buffer [1=RDY] data is available 


Transmitter Mode [1=BUSY] USART is transmitting 

Parity Error [1=ERROR] error in Rx or Tx data parity 

Overrun Error [1=ERROR] received data overrun error detected 

Framing Error [1= ERROR] transmitted data has wrong stop bit, length or baud 


Reverse Channel [1= BUSY] DSR on the RS-232 connector 


If the 8251 USART is used solely for console I/O, the main Status Register bits to be concerned 
with are D1 and D2. 


The other Status Register bits are useful if more advanced RS-232 data operations are being 
used. 
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The following code snippet will initialize and set up the 8251 USART for operation... 
(Note Foxit PDF reader ver 4.3.0.110 can convert this listing into ASCII text for use in a Z80 compiler) 


[OSGI GIO GIR IGG OG GIG FIG RR AIR OI RK 
, 


; BIG ZSAMPLE MONITOR USART I/O VERSION 1.0 
i eR 2 ee a a 2 ee 2 2 a a OO 2 OR RR RR 
Asynchronous Communication Mode 
Reset 
Mode Instruction (Asych or Synch, Baud Rate, Word Length, Stop Bits, Parity) 
Mode Word (Write): D7+D6=Stop Bits,D5=E/O Parity,D4=Parity Enable,D3+D2=Char Length,D1+D0=Baud 
*Note: a different Mode Word for Asynchronous Communication is used 
Command Instruction (DTR, RTS, Hunt Mode, Xmt Enable, Rxv Enable) 
Cmd Word (Write): D7=Hunt,D6=Int Rst,D5=RTS,D4=Err Rst,D3=Snd Brk,D3=Rx Enable,D1=DTR,DO=Tx Enable 
Status Word (Read): D7=DSR,D6=Syn Det,D5=Frame Err,D4=Overrun Err,D3=Parity Err,D2=Tx Empty,D1=Rx Rdy,DO=Tx Rdy 
OEOOOH 


11H 38251 Status port 
10H 38251 Data port 
01H ;TRANSMIT READY = (0000 0001) or (01)H 


initialize USART send OOH three times to guarantee device in "Command Word" mode 


A,OOH jinitialize USART 
(SSTAT),A 
A,0OH jinitialize USART 
(SSTAT),A 
A,OOH jinitialize USART 
(SSTAT),A 
A,40H ;Send reset "Command Word “ (0100 0000) or 40H and ready 8251 to receive a "Mode Word" 
(SSTAT),A 
Mode word:(01)-1 stop bits (00)-parity disabled (11)-char length 8 bit (10)-baud 16X 
Mode word: (01001110) or (4E)Hex...1xBaud = 153,600 1/16xBaud = 9,600 1/64xBaud = 2,400 
A,4EH ;Mode register 8,1,n,9600 or 4EH 
(SSTAT),A 


Command word:(0)-disable hunt mode (0)-do not return to mode word (1)-reset output 0 
Command word:(1)-reset all error flags (0)-normal operations (1)-receive enable 
Command word:(1)-DTR will output "0" (1)-transmit enable 
Command word: (0011 0111)Binary or (37)Hex 

A,37H ;Command register 37H essentially enables both transmit & recieve modes 

(SSTAT),A 


A,(SSTAT) 
TXRDY jis transmitter buffer ready (0&0=0,0&1=0,1&0=0,1&1=1)...if SSTAT=1 AND TXRDY=1 the loop exits 
Z,TEST jloop until it's empty 


Output to say we reached this point "U" 
A,56H 
(SDATA),A 


TEST 


8251 USART BAUD RATE: 


The Baud Rate for the 8251 is selected by using DIP Switch U1. The Baud Rates are clearly 
labeled on the circuit board. Rates go from 110 baud to 9600 baud. Only one switch on U1 can 
be closed at a time or the baud rate generator will not function. 
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REVISITING U23 DIP SWITCH: 


The remaining two switches (S7 & S8) are option switches controlling the M1 Wait State and 
the (POJ) Power-On Jump to EPROM functions. 
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vIot DIP Switch U23 


IdST 
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- © S7- OPEN=Wait Off 


e S7- CLOSE=M1 Wait On 
Jumper R to F 
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@ S8- OPEN=POJ Off 


e S8-CLOSE=POJ On 


BIG Z SPEED OPTION: 


The Big Z CPU can operate at 2MHz or 4MHz depending upon the position of the T, V, U jumper. 
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Operation at 4MHz has been successful with the Jade DD Controller Card and a static RAM 
board but this depends on many factors and is not easy to get working. The other problem with 
the 4MHz operation may be due to the 8251 not being a 4MHz part. Substitution of a faster 
USART may resolve the issue or a USART wait state could be implemented as described in the 
Big Z Manual and Engineering Update #104. 


ENGINEERING UPDATES: 

Engineering updates or “ECN” are listed in the back of the revision C Big Z user’s manual. Most 
of the ECN’s deal with errors in the User’s Manual due to board revisions, EPROM tables, 
EPROM connections and errors in the program listings included within the User’s Manual. In 
particular, the Jade Monitor listing in the manual does not work. 


Two of the ECN’s have been performed on the Jade Big Z revision C board... 


@ Erratic Reset ECN#101 
e Status Delay Signal ECN#102 


Erratic Reset Operation is caused by excessive time constant on RC network on input to U21 
Pin#1. This time constant was chosen for operation with front panel systems and resulted in a 
delay of 470 ms after the Reset was activated. This may be too long of a delay for non-front 
panel systems. Capacitor C22, a 100mfd capacitor was removed and a smaller 10mfd capacitor 
was installed in it’s place. This may have to be fine-tuned up to around 22mfd before 


acceptable operation is observed. 


SNTYLS367AN 
® FTJ9650 


The Status Signals from a front panel display are latched by U40 to provide for a stable display 
operation of the front panel. Unfortunately, passing the status signals through U40 slows them 
down enough to become non-compliant with some dynamic memory boards operating at 
4MHz. To correct this, U40 is removed and a jumper DIP is installed in it’s place. This removes 
the pSYNC delay introduced by the original circuit. 
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OTHER MODIFICATIONS: 


If the Jade Double D Disk Controller board is used in the system, one of the Engineering Notice 
Bulletins #4 was for erratic operation between the Jade Big Z and the Jade DD (from the Jade 
DD manual) was to modify U22. Cut the trace going to pin#13 of U22 and jump pin#13 to 
pin#3. If the Jade DD is not used this modification is not needed. 


EPS & HALT: 

One other modification done to the Big Z CPU board was the addition of two signal LED’s to 
indicate when the EPROM address space is being accessed, and an LED to indicate when a 
software HALT instruction has been accessed by the CPU. These indicators are useful in 
determining if the EPROM is set up correctly and if the Big Z board is working by installing an 
EPROM filled with HALT instructions (76H) that will cause the processor to HALT and turn on 
the LED indicator. 


e BLUE LED: ON=EPROM being accessed EPS (within the U33 DIP switch address range) 
e@ RED LED: ON=HALT instruction has been read by the CPU and stopped 
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Jade Memory Map for Disk Based System: 


JADE SYSTEM MEMORY MAP (1K SEGMENTS) 


FFFF 
FFFF-FCO0 


JADE MONITOR EPROM 


DISK BOOT EPROM y 


JADE DD MEMORY WINDOW 
~__} 512K BUFFER FROM STACK 


FBFF-F800 
F7FF-F400 
F3FF-FO00 


FOOO 
EFFF-EC0O 


LL 


ECO0O 
EBFF-E800 E800 


E7FF-E400 


E3FF-E000 


DFFF-DCOO 


DBFF-D800 


D7FF-D400 


D3FF-DO000 


CFFF-CCO00 


CBFF-C800 


C7FF-C400 


C3FF-C000 


BFFF-BCO0O 


DCOO 


TPA 


0100 
LOW STORAGE 


| 


Troubleshooting and Observations: 


Hot +5V Regulator Heatsink: The +5V Regulator at VR4 gets rather hot during normal 
operation. Other (larger heatsinks) have been tried but still, this regulator runs hot. | believe 
this is normal operation for this board and should not cause problems but it is undesirable. 
For this reason, a new switching regulator was installed that does not heat up at all. This 
regulator is manufactured by (EzZSBC.COM) and is rated at +5V @ 3 Amps. 


This 7s a 5V 2.5A switch-mode voltage regulator. It is a high-efficiency 
replacement for popular three-terminal LM323T linear regulators and it 7s 
pin-to-pin compatible with the common and now obsolete LM323T linear 
regulators. The mechanical design allows the PSU5a to fit anywhere where an 
LM323T or an LM7805 was used. The maximum continuous output current 7s 3A and 
at room temperature the PSUSa does not need a heatsink to maintain this 
current indefinitely. All the required capacitors are included on the module, 
no external capacitors are required and additional input capacitors do no 
harm. The output voltage guaranteed to be within +/-1% as the load varies. 
The original LM323T had a rather loosely specified output voltage and it 
could vary by as much as 250mV without load and at room temperature. The 
PSU5a 7s accurate to winthin +/-2%. The module has thermal shutdown and 
current limit protection. The absolute maximum Tnput voltage 7s 20V. 


e Drop-in replacement of the obsolete LM323T or equivalent linear voltage 
regulator. 


e Guaranteed 3A output current. 

e Input voltage range of 7.2V to 20V 

e Suitable for use in Pinball machines and video game consoles 

e High efficiency switching regulator design reduces power dissipation 
with superior voltage regulation compare to the LM323T. 

e Thermal shutdown and current limit protection 

e All components are mounted on one side of the PCB 

e Highest component Ts the inductor at 5mm above the PCB. 

e Avatlable with or without pins. 

e 


Gold plated pins and PCB to withstand harsh environments over the long 
term. 


e can drive inductive loads such as solenoids and DC motors. 
e 500kHz Switching Frequency 
e Made 7n the USA 


PSU5a 5V 3A Regulator in TO-220 form Factor 


As a side note, the previous +5V regulator was changed out with another regulator with 
a higher Amp rating prior to trying the EzSBC switching regulator. This regulator worked 
but provided an output of 4.98 volts. This caused strange behavior in the Big Z CPU 
board. Random crashes, random HALT’s and weird operation of the front panel displays 
(flickering of status LED’s). | can’t state emphatically that the lower 4.98 volts caused 
this problem, but after replacing the regulator with the EzSBC switching regulator, along 
with the two filter capacitors C16 & C17, all problems stopped occurring. The EzSBC 
output voltage was 5.01 volts. Food for thought...in the future, check the voltage output 
of the VR4 regulator to insure it is operating at +5.00 volts. 


8251 USART Port: Problems with the serial port can be hard to diagnose. The RS-232 
connection from the Terminal Equipment to the Jade Big Z is through the 16-Pin DIP 
socket on the board U19. If the connector plug is installed backwards, +/- 12 volts is 
applied to the CPU data bus directly and can cause damage. Make sure the plug 
inserted into U19 is correctly oriented with Pin #1 closest to the Gold Fingers on the 
bottom of the card. Verify Pin #1! If the serial port becomes unresponsive, replace the 
MC1488 and MC1489 chips first as they are the interface between the RS-232 and TTL 
logic. If the computer is turned off, the Big Z plugged in with serial connection on, and 
there is a small voltage bleeding through on the +12V or -12V system rails; this may 
indicate failure of the 1488 and/or 1499. 


System Monitor known working ... JADEV3F.BIN/JADEV3F.ASM 2K 2716 EPROM 
Origin= E800-EFFF 8251 Data Port=10H & Status/CMD Port=11H 


SWITCH 1 2 3 4 5 6 7 8 
U1= C O O O O O O O 
U23= C C C O C C O C 
U33= O O O C O C C O 


JADE Firmware: (EPROM and/or Disk) 


Big Z Monitor "A" SFX-58001020E $29.95 

Monitor program on 2708 EPROM for JADE Big Z CPU, 
original JADE parallel-serial |/O board, serial terminal, 
and Versafloppy | or Tarbell disk controller. 


Big Z Monitor "B" SFX-58001025E $29.95 
Similar to version A, but uses Tarbell cassette for tape I/O. 


Big Z Monitor "C"/5-1/4" SFX-58001030E $49.95 
Combination monitor and CP/M BIOS for Big Z, 
serial terminal, Versafloppy |, and 5-1/4" drives (2716). 


Big Z Monitor "C'"/8" SFX-58001040E $49.95 
Same as above, for use with 8" drives. 


Big Z Monitor "D"/5-1/4" SFX-58001050E $49.95 
Combination monitor and CP/M BIOS for Big Z, serial terminal, 
JADE Double-D disk controller, and 5-1/4" drives. 


Big Z Monitor "D"/8" SFX-58001060E $49.95 
Same as above, for use with 8" drives. 


Double-D Boot SFC-58001200E $20.00 
Standard bootstrap routine for JADE Double-D 
disk controller (2708). 


(Note Foxit PDF reader ver 4.3.0.1110 can convert this listing into ASCII text for use in a Z80 compiler) 


Monitor listing based on Big Z Monitor “A” and Big Z Monitor “B” 
Note: Cassette functions are untested on actual hardware 07/15/24 so may not work all other functions should work 


SHER SCH He HEA HEHE A HEA NEHA HE AE HEHE HEHE HEHE HEH He He HH He a a He ea He a ae eae ae He ae eae ea ae ae ae ae 


BIG Z MONITOR (2K VERSION 3.0) 9/10/79 AB 


TARBEL: 
KCTAPE: 


JUNE 25,2020 


HEHE HEHE He He Hee He Hee He ae HEHE Me He Hee HE He He He EE HE He He He He ae a Hae He ae wae eae ae He Hae He ae ae He ae Ne ae ea ae ae ae ae 


VERSION: JADEV3FC.Z80 


BY AD 


TAPE FUNCTIONS INCLUDED NOW...VERSION C 
BACKGROUND-THIS MONITOR CODE IS FROM THE JADE BIG Z REVISION C MANUAL 1K ROM MONITOR 
THE VERSION WAS 2.0 A/B FOR CASSETTE STORAGE A=JADE 2S1P/AND B=TARBELL 
FROM THE ENGINEERING NOTES, THIS VERSION WAS KNOWN NOT TO WORK AND WAS POORLY COMMENTED 
THE CODE WAS MODIFIED WITH THE GOAL OF KEEPING THE BASIC MONITOR FUNCTIONS INTACT AND 

ADDING TO THE MONITOR WITH IMPROVEMENTS AND EXTENSIVE COMMENTS WHERE POSSIBLE 
BETTER MENUS & PROMPTS, DR DOBBS MEMORY MAP, PORT IDENTIFER (S100.COM). 
THAT LOAD & SAVE DATA FOR KCTAPE ARE JADE ORIGINALS W/CHECK SUMS (BUT THERE IS NO 


STANDARD FOR THIS SO EXAMINE THE CODE). 


MANUAL AND ARE NOT JADE ORIGINAL ROUTINES. 
THE MONITOR ROM WENT FROM A 1K 2708 TO A 2K 2716 EPROM. 


ASSUMPTIONS : 


8251 SERIAL PORT ON BIGZ IS SET TO PORTS 10 AND 11H 

OR $100.COM PROPELLER CONSOLE BOARD AT PORTS OOH AND 01H 

(s100.COM PROP MUST ONLY ADDRESS THE 256 PORTS FOR A PRE-IEEE696 MACHINE) 
TARBELL TAPE USING STANDARD TARBELL PORTS 

OR KC STANDARD VIA JADE SERIAL/PARALLEL CARD 2S1P 

WITH AY51013 UART SET TO PORTS 00 & 80 HEX 


NO MEMORY SIZE IS ASSUMED 
ASSUME A VT-100 SERIAL TERMINAL CONNECTED TO JGZ80 8251 USART USING VT-100 


PROGRAMMING THE JGZ80 8251 UART 
Asynchronous Communication Mode 


TAPE FUNCTIONS 


THE TARBELL TAPE ROUTINES ARE BASED ON THE TARBELL 


"ESC' COMMANDS 


Mode Instruction MSB(Asych or Synch, Baud Rate, Word Length, Stop Bits, Parity)LSB 


MODE WORD (Write): D7+D6=Stop Bits,D5=Even Parity,D4=Parity Enable,D3+D2=Char Length,D1+D0=Baud 


*Note: a different Mode word for Synchronous Communication is used but not used here 
Command Instruction MSB(DTR, RTS, Hunt Mode, Xmt Enable, Rxv Enable)LSB 


COMMAND WORD (Write): D7=Hunt,D6=Int Rst,D5=RTS,D4=Err Rst,D3=Snd Brk,D3=Rx Enable,D1=DTR,DO=Tx Enable 
STATUS WORD (Read): D7=DSR,D6=Syn Det,D5=Frame Err,D4=Overrun Err,D3=Parity Err,D2=Tx Empty,D1=Rx Rdy,DO=Tx Rdy 


PROGRAMMING THE JADE 2S1P CASSETTE PORT A AY51013/TRI602 UART 


(note: This board does not actually have a programmable UART; but JADE used 74LS125 & 74LS97 to emulate one) 
DATA Ports: "FOR A" can be either (00H,04H,08H,0CH,10H,14H,18H or 1CH) => HOLDS THE DATA WORD FOR I/O 


CONTROL Ports: (DATA Port) + (80H) => WRITE ONLY MSB(NP,TSB,NB2,NB1,EPS,XX,XX,XX)LSB 
NP=1(NO PARITY) ,TBS=1(2 STOP BITS) ,NB2+NB1(00=5,01=6,10=7,11=8 BITS/CHAR) ,EPS=1(EVEN PARITY) 
STATUS Ports: (DATA Port) + (80H) => READ ONLY MSB(TBMT, PE, FE,DAV,XX,XX,XX,XX)LSB 
TMBT=1(TX BUFF EMPTY) ,PE=1(PARITY IS BAD) ,FE=1(STOP BIT IS BAD) ,DAV=1(RX IS READY TO READ) 


PROGRAMMING THE TARBELL- THE TARBELL CASSETTE CARD ONLY HAS TTL LOGIC WITH CONTROL/STATUS BITS STORED IN A 74LS75 LATCH 


CORRESPOUNDING TO DATA BITS (D7,D6,D5,D4) OF AN 8 BIT WORD. 


THE PORT ADDRESS BIT "AO" DIFFERENTIATES BETWEEN THE TWO. 


DATA WORD= I/O (6FH) 


CONTROL/STATUS WORD= I/O (6EH).. 


MSB[D7 ,D6,D5,D4,D3,D2,D1,D0]LSB 
-MSB[X,X, TXRDY, RXRDY, 


RXRDY=00H TARBEL READY TO RECEIVE,TXRDY=00H TARBEL READY TO TRANSMIT 


GP OUTPUT PORT (J1)- PORT 6EH MSB[X,X,X,X, D3,D2,D1,DO]LSB WRITING A "1" TURNS BIT ON AND "O" TURNS IT OFF 

GP INPUT PORT (J1)- PORT 6EH MSB[X,X,X,X, D3,D2,D1,DO0]LSB READING THESE 4 BITS FROM PORT 6EH WITH CARE 

COULD BE USED AS INPUT CONTROLS 

THE GP OUTPUT PORT HAS FOUR BITS (40mA) AND "DO" IS USED TO CONTROL CASSETTE TAPE "MOTOR-ON" FUNCTION VIA RELAY 


TARBELL DEFINES: [3CH]=START BYTE, [FFH]=LEADER BYTE NOTHING ELSE IS SPECIFICALLY DEFINED 


[E6H]=SYNC BYTE, 


SLR SYSTEMS ASSEMBLER USED TO GENERATE HEX CODE FOR USE-(Z80ASM.COM) EXAMPLE: 


AT (FOQOH-F7FFH) WITHOUT WASTING MEMORY SPACE. 


COMPILER: COMPILED CODE SHOULD FIT INTO A 2716 EPROM WITH 2048 BYTES AVAILABLE 
1999 BYTES - PROP/TARB 

2023 BYTES - SERIAL/TARB 

1889 BYTES - SERIAL/JADE 

1865 BYTES - PROP/JADE 


MENU COMMANDS: 


A(MMOD)-MODIFY A MEMORY LOCATION 


D(MDUMP)-DUMP A RANGE OF MEMORY TO THE CONSOLE 

GCRUN)-GOTO AND RUN A PROGRAM AT THAT ADDRESS 

K(MENU)-REFRESH THE MENU SELECTIONS/SCREEN 

C(MMOVE)-THIS ACTUALLY COPIES A BLOCK OF MEMORY TO A NEW LOCATION 


T(MTEST)-SIMPLE NON-DESTRUCTIVE MEMORY TEST THAT DISPLAYS MEMORY BITS THAT CAN'T BE CHANGED AS "11111111" 


F(MFILL)-WILL FILL A BLOCK OF MEMORY WITH A SELECTED HEX CHARACTER 


M(MMAP)-DR DOBBS MEMORY MAPPER THAT DISPLAYS RAM,ROM, AND MISSING MEMORY 
L(MWRT)-ROUTINE TO ENTER SHORT PROGRAMS INTO CONSECUTIVE MEMORY LOCATIONS (MACHINE LANGUAGE PROGRAMS) 


P(PORTS)-WILL SCAN THE 0-255 I/O PORTS AND DISPLAY VALUES THAT IT FINDS 
S(CSAVE)-SAVE A BLOCK OF MEMORY TO CASSETTE TAPE 
R(CLOAD)-LOAD FROM CASSETTE TAPE TO A SPECIFIED STARTING LOCATION IN MEMORY 


V(MVER)-VERIFY A COPIED BLOCK OF MEMORY BY SPECIFIED STARTING, ENDING, AND NEW LOCATION ADDRESS 
X(CSYNC)-GENERATE A SYNC STREAM TAPE USED TO ADJUST THE CASSETTE TAPE VOLUME VIA THE (CADJ) ROUTINE 


X,X,X,X]LSB_RXRDY=10H , TXRDY=20H 


"Z80ASM JADEV3FC.Z80 FH" 
JADE MONITOR ROM HAS BEEN COMPILED TO RESIDE AT (F800H-FFFFH). THIS WAS TO ALLOW FOR A DISK BOOT ROM TO RESIDE 


Y(CASJ)-ROUTINE TO ADJUST THE CASSETTE PLAYER VOLUME CONTROL USING A SYNC STREAM TAPE 
B(TARB)-TARBELL FLOPPY DISK BOOT ROUTINE WRITTEN TO MEMORY AND THEN RUN; WORKS ON A FD-1771; NO BOOT ROM REQUIRED 
E(VERSA)-ROUTINE TO JUMP TO A VERSAFLOPPY BOOT ROM AT FOOOH AND LOAD A DISK SYSTEM FROM THERE 


UCXPORT)-CHANGE AN I/O PORT VALUE 0-255 BY ENTERING PORT HEX NUMBER, THEN NEW HEX VALUE FOR THAT PORT 


CONDITIONAL ASSEMBLY PARAMETERS 


DEFINE VALUES OF TRUE/FALSE 


EQU OFFFFH 
EQU 0 


DEFINE CONSOLE I/O 


EQU FALSE 
EQU TRUE 
DEFINE CASSETTE TAPE SYSTEM 
EQU TRUE 
EQU FALSE 


SYSTEM EQUATES 


ORG OF800H 
IF KCTAPE 
EQU 00H 
EQU 80H 
ENDIF 


#####H#H#HHHH Note: Choose either 8251 UART I/O or PROP I/O #########H#H# 


USE BIG Z ONBOARD 8251 FOR CONSOLE I/O 
USE S100.COM PROPELLER CONSOLE BOARD FOR I/O 


USE THE DON TARBELL CASSETTE BOARD 
USE THE JADE SERIAL/PARALLEL BOARD 


LOCATION OF JADE MONITOR ROM 


ASSUME JADE BIG Z MONITOR IS AT (F800)H - (FFFF)H 2KROM 


ASSUME VERSAFLOPPY II BIOS ROM AT (FOOO)H - (F7FF)H OR OTHER FLOPPY BIOS 


JADE 2S1P BOARD SELECT PORT B KC CASSETTE ‘CURRENTLY SET TO PORT OH' 
JADE 2S1P BOARD ADDRESS UART B I/O (80H + SELECT PORT) 
JADE 2S1P: TO PROGRAM THE UART OPERATION MODE LOAD THE SELECT PORT + 80 


"CURRENTLY PORT O 


DATA PORT IS AT "6FH" AND THE CONTROL/STATUS PORT AT "6EH" 


=(f) IF 


PORT 80' 
=(f) ENDIF 


AS THE I/O ADDRESS THEN OUTPUT THE CONTROL WORD TO THAT ADDRESS. ..BAUD, PARITY, ETC 


THE INPUT & OUTPUT ADDRESS IS THE SAME. 


STATUS SENSE IN AN INPUT. 


JADE 2S1P CNTL WORD (10110000)B = BOH => 
JADE 2S1P STATUS SENSE (1xxxxxxx)B = 80H 


JADE 2S1P STATUS SENSE (Xxxx1xxxx)B 


10H 


THE CONTROL WORD IS AN OUTPUT WHILE THE 


NOP, 1STOP, 8DATA 


> TRANSMITTER BUFFER IS EMPTY (TBMT)=1 
=> CHARACTER READY TO TRANSMIT (DAV)=1 


WAIT: EQU OFCH 


SECT: EQU OFAH 
DCOM: EQU OF8H 
DDATA: EQU OFBH 
DSTAT: EQU OF8H 
SBOOT: EQU 007DH 
TARBL EQU O6EH ; TARBELL CONTROL/STATUS PORT 
, IF UART ; 
KBDST: EQU 11H ; 8251 Command port 
KBDDT: EQU 10H 3 8251 Data port 
KBDIN: EQU 02H 3 8251 RECEIVE READY = (0000 0002)B or (02)H 
KBDOT: EQU 01H 3 8251 TRANSMIT READY = (0000 0001)B or (01)H 
ENDIF : 
i IF PROP 7 
KBDST: EQU OOH ; Status port is PORT (00)H 
KBDDT: EQU 01H ; Data port is PORT (01)H 
KBDIN: EQU 02H ; RECEIVE READY = (0000 0002)B or (02)H 
KBDOT: EQU 04H ; TRANSMIT READY = (0000 0100)B or (04)H 
ENDIF : =(g) ENDIF 
: THE FOLLOWING ARE JUMP SUBROUTINES THAT CAN BE ACCESSED BY OTHER PROGRAMS 
: FOR THIS REASON THEY ARE LISTED HERE; BUT PROGRAM FLOW ONLY USES "INIT" 
IP INIT 
IP EXEC 
IP CONIN 
IP CONOUT 
IP HEXIN 
IP HEXOUT 
IP DHXOT 
IP CRLF 
IP SPACE 
IP TREAD 
IP TWRIT 
: ++ et DEFINE MESSAGES HERE + + + + 
, ; MESSAGE PRINT ROUTINE [DO NOT USE COMMA AS PUNCTUATION! ! !] 
: IF TARBEL 4 
MSG1: DEFM "JADE COMPUTER SYSTEMS BIG Z MONITOR 3.0B' 
DEFB 03H ; O3H=END OF TEXT 
ENDIF : 
‘ IF KCTAPE 4 
MSG1: DEFM "JADE COMPUTER SYSTEMS BIG Z MONITOR 3.0A' 
DEFB 03H ; O3H=END OF TEXT 
ENDIF ; 
MSG2: DEFM "TOP OF RAM:' 
DEFB 03H ; O3H=END OF TEXT 
MSG3: DEFM '(A)MMOD (D)MDUMP (L)MWRT (F)MFILL (C)MMOVE (M)MMAP (V)MVER (T)MTEST (G)RUN' 
DEFB ODH, OAH ; ODH=CARRIAGE RTN OAH=LINE FEED 
DEFB 03H ; O3H=END OF TEXT 
MSG4: DEFM '(S)CSAVE (R)CLOAD (P)PORT (U)XPORT (X)CSYNC (Y)CADJ (B)TARB (E)VERSA (K)MENU' 
DEFB ODH, OAH ; ODH=CARRIAGE RTN OAH=LINE FEED 
DEFB 03H ; O3H=END OF TEXT 
MSG1O: DEFM " xxXxx <CR> <BS> <xx.> or </>exit' 
DEFB ODH,0AH,03H ; CR LF EOT 
MSG1L: DEFM "BAD: ' 
DEFB 03H ; END OF TEXT '03H' 
MSG12: DEFM " XXXX,XXXX <CR>' 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG13: DEFM " xxxx <CR> or </>exit' 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG14: DEFM " XXXX,XXXX,XX <CR>' 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG15: DEFM " XXXX,XXXX,XXXX <CR>' 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG16: DEFM ' ADJ VOL GOOD(+)/BAD($)' 
DEFB ODH,OAH,03H ; C/R L/F EOT 
MSG17: DEFM " SYNC STREAM TAPE: ' 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG18: DEFM " XXXX,XXXX,XXXX <CR> MEMORY: <STRT>,<END>,<NEW>' 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG19: DEFM "END' 
DEFB 03H ; END OF TEXT '03H' 
MsG20: DEFM " XXxx <CR>' 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG21: DEFM " XXXX <CR> PORT VALUE' 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG22: DEFM ' DISK BOOTSTRAP LOADER’ 
DEFB ODH,0AH,03H ; C/R L/F EOT 
MSG23: DEFM ' DISK BOOT ROM AT FOOOH' 
DEFB ODH,OAH,03H ; C/R L/F EOT 
INIT: 3 SET UP THE UART AND THEN INITIALIZE THE STACK 
ji IF UART 7 (5) IF 
LD A,00H 3 Initialize USART send OOH three times to guarantee device in "Command Instruction" 
OUT (KBDST) ,A 
LD A, 00H ; INITIALIZE USART 
OUT (KBDST) ,A 
LD A, 00H ; INITIALIZE USART 
OUT (KBDST) ,A 
LD A, 40H ; Send internal reset "Command Instruction" (0100 0000) or 40H and ready 8251 to recieve a 
"Mode Instruction" 
OUT (KBDST) ,A : : : ; 
Mode word:(01)-1 stop bits (00)-parity disabled (11)-char length 8 bit (10)-baud 16x 
5. Mode word: (01001110) or (4E)Hex...1xBaud = 153,600 1/16xBaud = 9,600 1/64xBaud = 2,400 
LD A,4EH ; Mode register 8,1,n,9600 or 4EH 
OUT (KBDST) ,A 
Command word: (0)-disable hunt mode (0)-do not return to mode word (1)-reset output 0 
: Command word: (1)-reset all error flags (0)-normal operations (1)-receive enable 
: Command word:(1)-DTR will output "0" (1)-transmit enable 
:, Command word: (0011 0111)Binary or (37)Hex 
LD A,37H ; Command register 37H essentially enables both transmit & recieve modes 
OUT (KBDST) ,A 3 INITIALIZE THE ONBOARD UART 
ENDIF 7 


3 TOP OF MEMORY ROUTINE AND SETUP STACK 


FTOP: 


FTOPL: 


FTOP2: 


BIOS: 


ALT1: 


LD 
CALL 
CALL 
CALL 
CALL 
CALL 
LD 
CALL 
PUSH 
CALL 
LD 
POP 
cP 
IP 
cP 


B,1 
HL, TRUE 


(HL) ,A 


A 

NZ, FTOP1 
HL 

HL 

SP,HL 

HL 

IY 


CLRSCN 
HL ,MSG2 
MARQ 
HL,1 
HL, SP 
DHXOT 
CRLF 


HL,MSG1 
MARQ 
CRLF 


TARBEL 
CRLF 
SP, IY 


A 
(TARBL) ,A 
HL,MSG3 
MARQ 


HL ,MSG4 
MARQ 


A,'#' 
CRLF 
CONOUT 


CONIN 
21H 

M, EXEC4 
"AN 
Z,ALTER 
70 

Z, DUMP 
Tet 
Z,G0 
Te 

Z, KMENU 
ver 
Z,COPY 
rh 
Z,MTEST 
Z,FILL 
va" 
Z,MEMMAP 
rH 
Z,MLOAD 
Tp 

Z, PORTS 
Tee 
Z,TSAVE 


Z,TLOAD 


< 


Z, VERIFY 


Z,STRM 


< 


Z, TUNE 
TB 
Z, BOOT 
TE 
Z,BIOS 
Ty" 
Z, QUERY 


EXEC4 


HL ,MSG23 
MARQ 
OFOOOH 


HL,MSG20 
MARQ 
SPHIN 
CRLF 
CHL) 


HL,MSG10 
MARQ 
SPHIN 
CRLF 
DHXOT 
SPACE. 

A, (HL) 
HEXOUT 


SET POINTER TO "1" 

PRELOAD MEMORY ADDRESS WITH "FFFF" 

ADD 1 TO MEMORY POINTER HL (START AT "0000" GOING TO "FFFF") 
LOAD "A" WITH (HL) CONTENTS 

MODIFY THE MEMORY CONTENTS 

LOAD MEMORY LOCATION (HL) WITH MODIFIED CONTENT 


SEE IF MEMORY CONTENT COULD BE CHANGED 

IF CHANGED=RAM, IF NOT CHANGED=TOP OF RAM 

IF CHANGED=TOP OF RAM, JUMP OUT; OTHERWISE REPEAT 
SET POINTER TO "0", FOUND SOME MEMORY! 


LOAD "A" WITH "MEMORY POINTER” 


IF POINTER IS "1", THERE IS NO MEMORY AT THIS LOCATION, TRY AGAIN 
SUBTRACT BY 1 

SUBTRACT BY 1 

LOAD THE (SP) STACK POINTER WITH HL 


3 SAVE STACK ADDRESS IN IY 


3 CLEAR SCREEN AND MOVE CURSOR TO UPPER LEFT CORNER 
3 TOP OF MEMORY MESSAGE - ONE TIME ONLY AT BOOT 
3 MESSAGE MARQUEE ROUTINE 


; DISPLAY THE TOP OF MEMORY - HEX OUT TO CONSOLE 


; DISPLAY THE JADE SIGN-ON MESSAGE 
3 MESSAGE MARQUEE ROUTINE 


; NOT SURE OF THIS ROUTINE - CHECK IF USING TARBEL 
; CRLF TO CONSOLE 

; LOAD SP FROM LY....IY CONTAINS THE SP ?? 
3 A=A=0 


OUTPUT TO TARBEL STATUS PORT MSB[X,X,TXRDY,RXRDY, X,X,X,X]LSB 


=(d) ENDIF 


; ROUTINE TO PRINT THE TWO LINES OF MENU COMMANDS 
3 MESSAGE MARQUEE ROUTINE 


; MESSAGE MARQUEE ROUTINE 
; DISPLAY MONITOR PROMPT 
; MONITOR PROMPT: # SIGN 
+ + + MENU TABLE ENTRIES + + + 
; GET CONSOLE INPUT IN REGISTER 'A' 
; LOOP ON CONTROL CHARACTERS ASCII(OOH-20H) 
; MODIFY MEMORY ROUTINE = A 
; DUMP MEMORY ROUTINE = D 
; JUMP TO ADDRESS AND RUN = G 
; PRINT THE MENU CHOICES = K 


3; MOVE MEMORY ROUTINE = C 
3 TEST MEMORY ROUTINE = T 
3 FILL MEMORY ROUTINE = F 


; MAP RAM AREAS = M 

3 WRITE DIRECT INTO MEMORY = L 

; DISPLAY AVAILABLE PORTS 

; SAVE MEMORY ON CASSETTE = S 

; LOAD MEMORY FROM CASSETTE = R 

; VERIFY MEMORY BLOCK COPY/MOVE = V 


3 DO A SYNC STREAM OUTPUT = X 


3 ADJUST CASSETTE VOLUME ROUTINE = Y 
3 TARBELL BOOT ROUTINE = B 
; VERSAFLOPPY II FLOPPY BIOS ROM = E 


; CHANGE PORT VALUE 

; IF INCORRECT OR NO SELECTION IS MADE, TRY AGAIN 

; OUTPUT BRIEF INSTRUCTION 

; OUTPUT TO CONSOLE 

; JUMP TO FLOPPY ROM AT FOOOH 

; JUMP TO A MEMORY LOCATION AND RUN A PROGRAM THERE 
; OUTPUT BRIEF INSTRUCTION 

; OUTPUT TO CONSOLE 

; EXECUTE A PROGRAM AT '(HL)' NO RETURN NEED RE-BOOT 


3; MODIFY OR EXAMINE MEMORY ROUTINE 


HOR ee <enter> — # A 0100 <CR> 

0100 00 _W_ <memory location 0100 displayed> 

0100 OO FF. <memory location 0100 changed to FF and PC INC> 
0101 00 _W_ <memory location 0101 displayed> 

0101 00 / <memory unchanged exit routine> 


0101 00 <CR> <memory unchanged and PC DEC> 
0101 00 <BS> <memory unchanged and PC INC> 
0100 FF __ 

3 OUTPUT BRIEF INSTRUCTION 

3 OUTPUT TO CONSOLE 


; ODH=CR MEANS DON'T CHANGE BUT DECREMENT TO THE NEXT LOCATION 


; THE '/' IS THE EXIT CHARACTER W/O CHANGE 


IP 


cP ; THE '.' IS THE MODIFY CHARACTER AS IN '0100 00 12.' 
JP ; IF THE '.' IS DETECTED 
LD ; LOAD THE VALUE IN 'E' TO MEMORY LOCATION '(HL)' 
ALT2: INC ; INCREMENT THE MEMORY LOCATION '(HL)' 
IR 3 START AGAIN AT ALT1 
ALT3: DEC ; DECREMENT THE MEMORY LOCATION AND START AGAIN AT ALT1 
JR 
DUMP: ; DUMP MEMORY ROUTINE 
3 #D____,___-_ = <enter> # D 0100 <CR> 
4 0100 D3 <memory location 0100 displayed> 
3 #D____, ___W_  <enter> # D 0100,0110 <cR> 
; 0100 D3 D3 D3 D3 D3... <memory locations displayed> 
: 0110 D3 D3 D3 D3 D3... <memory locations displayed> 
LD HL,MSG12 
CALL MARQ 
CALL DHXIN 
DUMP1: CALL CRLF 
CALL DHXOT 
LD B,16 
DUMP2: CALL SPACE 
LD A, (HL) 
CALL HEXOUT 
CALL CMPDH 
IP Cc, EXEC3 3 EXIT THE ROUTINE 
INC HL 3 INCREMENT THE PC 'HL' 
DEC B 
JP NZ, DUMP2 
IR DUMP1 
MEMMAP : ; MEMORY MAP PROGRAM CF.DR.DOBBS VOL 31 P40 AND JOHN MONAHAN S-100.COM 
LD HL,O ; IT WILL SHOW ON CONSOL TOTAL MEMORY SUMMARY OF RAM, PROM, AND NO MEMORY 
LD B,1 
MAPIA: LD E,'R' ; PRINT R FOR RAM 
LD A, (HL) 
CPL 
LD (HL) ,A 
cP CHL) 
CPL 
LD (HL) ,A 
JP NZ,MAP2A 
cP (HL) 
IP Z,PRINTA 
MAP2A: LD E,'p' 
MAP3A: LD A, OFFH 
cP (HL) 
IP NZ, PRINTA 
INC L 
XOR A 
cP L 
JP NZ,MAP3A 
LD Eye! 
PRINTA: LD L,0 
DEC B 
IP NZ,NLINEA 
LD B,16 
CALL CRLF 
CALL HXOT4 ; 16 HEX CONSOL OUT ROUTINE 
NLINEA: LD A, 20H ; LOAD REG A WITH 'SPACE' (20H) 
CALL OTA ; SEND TO CONSOL WHAT'S IN REG A 
LD A,E 
CALL OTA ; SEND TO CONSOL WHAT'S IN REG A 
INC H 
IP NZ,MAP1A 
CALL CRLF 
IP EXEC3 
MLOAD: ; WRITE DIRECTLY INTO MEMORY ROUTINE: 
A THIS ROUTINE WILL ACCEPT A STARTING ADDRESS FOLLOWED BY HEX DATA THAT IS 
; PLACED CONSECUTIVELY INTO MEMORY. ENTERING AN '/' WILL EXIT THE ROUTINE. 
: THIS COULD BE USED TO ENTER SHORT PROGRAMS INTO MEMORY TO BE RUN WITH THE 
: "GO' COMMAND. 
: ENTER HEX VALUES STARTING AT SPECIFIC MEMORY LOCATION 
o Fob ee, <enter> # L 0100 <CR> 
‘ 0100 __ <memory location 0100 displayed> 
; 0100 AF <CR> <memory location 0100 changed to AF and PC INC> 
; 0101 __ <memory location 0101 displayed> 
: 0101.45. :F <memory unchanged exit routine> 
LD HL,MSG13 
CALL MARQ 
ML1: CALL SPHIN 3; GET A MEMORY ADDRESS TO PLACE THE CODE 
CALL CRLF 3 GOTO A NEW LINE 
ML2: CALL DHXOT ; DISPLAY THE MEMORY ADDRESS 
CALL SPACE ; ADD A SPACE 
PUSH HL ; REG PAIR 'HL' CONTAINS ADDRESS OF DATA LOCATION IS PUSHED ONTO STACK 
CALL SPHIN ; ENTER SOME HEX DATA, A <CR> OR A '/' 
LD E,L 
POP HL 
cP ye ; THE '/' IS THE EXIT CHARACTER W/O CHANGE 
IP Z,ML4 3 EXIT TO EXEC 
cP ODH 3 <CR> = ODH 
JP NZ,ML3 ; IF THE '.' IS DETECTED 
LD (HL) ,E ; LOAD THE VALUE IN 'E' TO MEMORY LOCATION '(HL)' 
ML3: INC HL ; INCREMENT THE MEMORY LOCATION '(HL)' 
CALL CRLF 
IR ML2 ; START AGAIN AT ML2 
ML4: CALL CRLF 
CALL CRLF 
LD A,'D' 
CALL CONOUT 
LD A,'O' 
CALL CONOUT 
LD A,'N' 
CALL CONOUT 
LD A,'E' 
CALL CONOUT 
IP EXEC3 
KMENU: ; ROUTINE TO CLR SCREEN & HOME POSITION 
CALL CLRSCN 3 FILL SCREEN WITH BLANKS AND HOME CURSOR 
IP INITL ; JUMP TO INIT1 - DISPLAY JADE SIGN-ON MESSAGE 
FILL: 3 MEMORY FILL ROUTINE 
H RH oe co NY to) eet! _ — <enter> 
. # F 0100,0150,DE <enter> 
$ This will write "DE" into all memory locations 
: between 0100 - 0150 
; Only one byte "_ _" entered is valid as the fill 
LD HL,MSG14 
CALL MARQ 
CALL DHXIN 
SUB ODH 
JP Z,FILLO 
PUSH HL 


CALL HEXIN 


FILLO: 
FILL1: 


coPyYo0: 


TEST: 


MTL: 


MT2: 
MND1: 


MND2: 


LOOPIO: 


SKIP: 


QUERY: 


LD 
POP 
DEC 
INC 
LD 
CALL 
ap 
ap 


LD 
CALL 
CALL 


CALL 
LD 
LD 
CALL 
IP 
INC 
INC 
IP 


A,L 
HL 

HL 

HL 

CHL) ,A 
CMPDH 
NC, FILL1 
EXEC3 


HL,MSG15 
MARQ 
TRPIN 


CRLF 

A, (DE) 
(BC) ,A 
CMPDH 
C, EXEC3 
DE 

BC 
coPyY0 


HL,MSG12 
MARQ 
HL,O 
DHXIN 
CRLF 

A, (HL) 
B,A 


CHL) ,A 
CHL) 
Z,MT2 


CRLF 
HL,MSG19 
MARQ 
EXEC3 


a 


Onor 
a 


za a 
Vv 1 
x= 


toes 
nym yan mm 
ia] 
U 


Q>CPINO> PON mMoaH 


oa 
6 
ot 
4 


A,'> 


CONOUT 
D 

NZ, SKIP 
D,6 
CRLF 

E 
LOOPIO 
CRLF 
EXEC3 


HL,MSG21 
MARQ 


COPY MEMORY FROM ONE LOCATION TO ANOTHER LOCATION 
BG ne Neh rth ae Sn teen <enter> 

# C 0100,0150,0200 <enter> 

Copies Memory Block between 0100 - 0150 to Memory 


starting at 0200 This will over-write what is 
at Memory Location 0200 leaving 0100-0150 unchanged 


TRPIN: INPUT 3 WORDS...PLACE IN [HL], [DE], [BC]...ex: (hh11),(ddee),(bbcc) <CR> 
[HL]=END [DE]=BEG [BC]=DEST...WANT TO INC DE AND BC UNTIL DE=HL 


COMPARES [DE] TO [HL] IF EQUAL [CARRY FLAG] = 1 
EXIT THE ROUTINE IF [CARRY FLAG] = 1 


MEMORY TEST ROUTINE: (64K OR LESS) 
Teen ot ing aah KENT ERS 

# T 0100,0200 <enter> 

- WILL TEST MEMORY FROM 0100H TO 0200H 

- WILL RETURN NOTHING IF MEMORY IS OK OR 

- ADDRESS OF BAD MEMORY WITH BAD BITS 


THIS IS A 'QUICKIE' MEMORY TEST TO SPOT 

HARD MEMORY FAILURES, OR ACCIDENTLY 
PROTECTED MEMORY LOCATIONS. IT IS NOT 

MEANT TO BE THE DEFINITIVE MEMORY DIAGNOSTIC. 
IT IS, HOWEVER, NON-DESTRUCTIVE. ERRORS ARE 
PRINTED ON THE CONSOLE AS FOLLOWS- 

<ADDR> 00000100 WHERE <1> IS THE BAD BIT. 
BIT LOCATION OF THE FAILURE IS EASILY 
DETERMINED. NON-R/W MEMORY WILL RETURN 
WITH- 11111111 


INPUT TWO HEX NUMBERS IN REGISTER PAIR 'HL' AND 'DE' (Xxh XxXh) AND (XXh Xxh) 
INITIALIZE HL TO ZERO 
GET TWO PARAMETERS FROM THE CONSOL HL=(START ADDR) DE=(END ADDR) 


LOAD 'REG A' WITH BYTE (HL) 

STORE ORIGINAL BYTE (HL) TO 'REG B 

COMPLEMENT A...(INVERT A)...if ‘REG A'=[11110001] => 'REG A'=[00001110] 
LOAD (COMPLEMENT'd) A TO CHL) 

XOR: (both bits same, then make '0')...IF NOT 'O' THEN BITS ARE STUCK, BAD OR ROM 
IF JUMP TO MT2, NO BAD MEMORY FOUND 

BAD MEMORY FOUND, DISPLAY IT ON CONSOL 

SAVE END POINTER 'DE' ON STACK SO 'REG D' AND ‘REG E' ARE AVAILABLE FOR USE 
LOAD 'REG D' WITH ORIGINAL BYTE (HL) THAT IS BAD 

LOAD 'REG E' WITH CMP AND XOR BYTE (HL) ??? 

PRINT 'BAD: ' TO THE CONSOL (AF AND HL ARE UNCHANGED IN ROUTINE 'BAD') 

MAKE SURE 'REG A' IS UNCHANGED AFTER MSG 

PRINT 'HL' TO CONSOL FOLLOWED BY A SPACE 

SEND ' ' BLANK TO CONSOL OUT 


CONVERT HEX TO BINARY BITS AND DISPLAY 


RESTORE SAVED BYTE (HL) 
NOW SEE IF WE REACHED THE END 
COMPARE H[XXXX]L TO D[XXXX]E 


DOES H=D 

IF H=D GOTO MND2 

H<>D GOTO _INCR1 

COMPARE H[XXXX]L TO D[XXXX]E 

DOES L=E 

IF L=E WE ARE ALL DONE SO GOTO MND3 
IF L<>E CONTINUE TO INCR1 


INC HL, THIS MOVES HL (START) CLOSER TO DE (END) 
NOT THERE YET SO GO BACK FOR MORE 


REACHED THE END 
LOAD MESSAGE "END " 
DISPLAY MESSAGE 


PORTS ROUTINE TO DISPLAY DETECTED PORTS - FROM JOHN MONAHAN S100.COM 


LOOP THROUGH ALL PORTS (0-FF) 


iDisplay 6 ports across 


swil 


contain port number 


LOAD 'REG C' WITH OFFH 
LOAD 'REG A' WITH OFFH 


Remember [ZASMB does not work with this opcode,SLR is OK] 


IF DATA PORT C CONTAINS (FF)H, SKIP IT 

DATA PORT C HAS SOMETHING SO STORE IN 'H' FOR BELOW 
LOAD CURRENT PORT NUMBER TO 'REG A’ 

PRINT PORT NUMBER 


GET PORT DATA STORED IN 'H' 
PRINT TO CONSOL 
09H = TAB 


6 PORTS PER LINE 


NEXT PORT 


OUTPUT VALUE TO A PORT 
GET INPUT PROMPT "XXXX <CR> PORT VALUE” EX: PORT(10)=>(FF).."1OFF <CR>" SET (PORT 10) TO (FF) 
DISPLAY MESSAGE TO CONSOLE 


CALL DHXIN ; GET TWO HEX VALUES [HL]; H=PORT,L=VALUE 
LD C,H ; LOAD REG "C" WITH THE HARDWARE PORT 
LD A,L ; LOAD REG "A" WITH THE NEW VALUE 
OUT (C),A ; WRITE PORT (C) WITH VALUE "A" 
: ap EXEC3 


HennonrnrOnSrORHOnEURSDHSOEO CASSETTE TAPE ROUTINES ‘cHobHbnronrinriontianesintinrionieint 


IF KCTAPE ; KANSAS CITY TAPE =(a)IF 


ROUTINE TO LOAD TAPE DATA TO MEMORY 
PREPARE CASSETTE PLAYER, ENTER <LOAD ADDR START>, <LOAD ADDR END>,<CR>, START PLAYER, 
LEADER LOADS, DATA STARTS,"$" DISPLAYED, DATA ENDS,"*" DISPLAYED IF BAD CHKSUNM 


TLOAD: LD HL,MSG20 ; LOAD KANSAS CITY TAPE DATA AT SPECIFIED MEMORY LOCATION 
; GET STARTING MEMORY ADDRESS...XXYY <CR> HL=(XX), DE=(YY) 
CALL MARQ ; DISPLAY MESSAGE 
CALL DHXIN ; GET TWO HEX VALUES FROM KEYBOARD 
CALL TREAD ; 
ap Z,EXEC3 ; TAPE LOAD WAS SUCCESSFUL 
CALL SPACE ; TAPE LOAD ERROR; SEND SPACE TO CONSOLE 
LD Apt tt 
CALL CONOUT ; SEND "*" TO CONSOLE INDICATING A CHKSUM ERROR 
ap EXEC3 : 
; TAPE FORMAT: [FF] [FF] [FF] [FF] [E6] [DD] [DD] [DD] [DD] [cHKSuM] 
TREAD: LD A,0BOH ; SET UP 2S1P AY51013 UART ON CASSETTE PORT A 
OUT CTAPST) ,A ; WRITE BOH TO "CONTROL WORD PORT" MSB(NP,TSB,NB2,NB1,EPS,X,X,X)LSB 
; BOH=(1,0,1,1, 0,0,0,0)=(NO PARITY,1 STOP BIT,8 DATA BITS,ODD PARITY) 
LD HL, TRUE ; HL IS A DELAY SEED; TRUE = OFFFFH 
CALL DELAY 
TRDA: LD B,4 ; SET COUNTER B=4; LATER B BECOMES CHKSUM 
TRDB: CALL CIN ; GET CASSETTE DATA 
cP OFFH ; IF DATA IS NOT "FFH" THEN LEADER HASN'T STARTED YET NZ=FALSE 
IR NZ, TRDA ; IF DATA IS "FFH", FOUND LEADER SO KEEP READING CASSETTE DATA, IF "E6H" 
DEC B ; DECREMENT THE COUNTER B 
IR NZ, TRDB ; GET NEXT (4) BYTES FROM CASSETTE [FF] [FF] [FF] [FF] 
TRDC: CALL CIN ; READ DATA FROM THE TAPE 
cP OFFH ; IS DATA LEADER "FFH" 
IR Z,TRDA ; IF IT IS LEADER; START ALL OVER READING THE NEXT (4) BYTES 
cP OE6H ; IS BYTE "E6H"...START OF DATA WITH "SYNC BYTE" 
IR NZ, TRDA ; IF IT IS NOT "E6H" SOMETHING IS WRONG SO START AGAIN 
LD ar ; FOUND THE "SYNC BYTE" (E6); SO SET CHECKSUM=B=0 
LD A,'$' 
CALL CONOUT ; SEND "$" TO CONSOLE INDICATING START OF MEMORY LOAD FROM TAPE 
DEC HL 
TRD1: INC HL ; INCREMENT LOAD ADDRESS HL 
CALL CIN ; LOAD TAPE DATA IN "A" 
LD CHL) ,A ; WRITE "A" TO MEMORY LOCATION (HL) 
ADD A,B ; ADD CHKSUM TO A 
CALL CMPDH ; COMPARE "D" TO "H"...START=END NC=FALSE 
IR NC, TRD1 
CALL CIN ; LOAD TAPE DATA [CHKSUM] 
cP B ; IF TAPE CHKSUM = B; THEN Z=TRUE 
RET 
CIN: IN A, CTAPST) ; READ "STATUS SENSE PORT" FOR 2S1P AY51013 UART ON CASSETTE PORT B 
AND 10H ; MSB(TBMT,PE,FE,DAV,X,X,X,X)LSB 10H=(0,0,0,1, 0,0,0,0)=> DAV=0 (RX IS RDY) 
IR Z,CIN 
IN A, (TAPE) ; READ DATA INTO "DATA WORD PORT" 
RET 
; ROUTINE TO ALLOW FOR ADJUSTMENT OF TAPE PLAYER VOLUME CONTROL-NEED SYNC STREAM TAPE AS INPUT 
TUNE: LD A,0BOH ; SET UP 2S1P AY51013 UART ON CASSETTE PORT B 
OUT CTAPST) ,A ; WRITE BOH TO "CONTROL WORD PORT" MSB(NP,TSB,NB2,NB1,EPS,X,X,X)LSB 
CALL CLRSCN ; BOH=(1,0,1,1, 0,0,0,0)=(NO PARITY,1 STOP BIT,8 DATA BITS,ODD PARITY) 
TUNO: LD B,30 ; B IS A LINE COUNTER TO PRINT 30 LINES TO CONSOLE 
CALL HOME ; MOVE CURSOR TO UPPER TOP LEFT OF SCREEN 
LD HL,MSG16 7 
CALL MARQ ; LOAD A "SYNC STREAM TAPE" AND OBSERVE DISPLAY FOR mye 
CALL SPACE ; ADJUST THE TAPE PLAYER VOLUME TO ONLY DISPLAY "+" 
TUN1: CALL CRLF ; SEN CRLF TO CONSOLE 
LD H,40 ; LOAD COUNTER TO 40; PRINTS 40 "+" OR "$" TO CONSOLE = 1 LINE 
TUN2: CALL CIN ; INPUT TAPE DATA 
cP OFFH ; IS DATA [FF]; IF IT IS, Z=TRUE 
IR Z,TUN2 ; DATA IS LEADER, TRY AGAIN...OHERWISE CONTINUE BELOW 
LD L,'+' so be 
cP OE6H ; IS DATA [E6] THE SYNC BYTE...IF SO, Z=TRUE 
IR Z,TUN3 ; IF FOUND [E6] GOTO TUN3...(L="+" GOOD/L="$"BAD) 
LD Log 3 L="$" 
TUN3: LD A,L 
CALL CONOUT ; SEND L TO CONSOLE 
DEC H ; DECREMENT COUNTER H 
IR NZ, TUN2 ; IF H=0, START ALL OVER AGAIN 
DEC B 
IR NZ, TUN1 
JP TUNO 
; TSAVE ROUTINE-USED TO SAVE A BLOCK OF MEMORY TO CASSETTE TAPE 
TSAVE: LD HL,MSG12 ; CONSOLE PROMPT FOR BEGINNING AND ENDING MEMORY ADDRESS 
3 TSAVE XXXX,YYYY_<CR> STARTS THE TAPE SAVE 
CALL MARQ ; FORMAT: [FF] [FF]--16--[FF] [E6] [DD] [DD] [DD] [DD] [CHKSUM] [CHKSUM] [CHKSUM] 
CALL DHXIN ; GET STARTING MEMORY ADDRESS...XXYY <CR> HL=(XX), DE=(YY) 
CALL TwRIT 
JP EXEC3 
TwRIT: LD A,0BOH ; SET UP 2S1P AY51013 UART ON CASSETTE PORT A 
OUT CTAPST) ,A ; WRITE BOH TO "CONTROL WORD PORT" MSB(NP,TSB,NB2,NB1,EPS,X,X,X)LSB 
; BOH=(1,0,1,1, 0,0,0,0)=(NO PARITY,1 STOP BIT,8 DATA BITS,ODD PARITY) 
LD B,16 ; COUNTER B=16 
TwrRT0: LD A,OFFH ; LOAD A=[FF] 
CALL COUT ; WRITE [FF] TO TAPE 
DEC B ; DECREMENT COUNTER B 
IR NZ, TWRTO ; KEEP GOING UNTIL 16 [FF]'S HAVE BEEN WRITTEN TO TAPE 
LD A, OE6H ; LOAD A WITH [E6] THE SYNC BYTE 
CALL COUT ; WRITE SYNC BYTE TO TAPE 
DEC HL 
LD B,0 ; LOAD CHKSUM B=0 
TwrRTl: INC HL 3 INCREMENT HL 
LD A, (HL) ; LOAD DATA FROM (HL) TO A 
CALL COUT ; WRITE DATA TO TAPE 
ADD A,B ; ADD CHKSUM TO A 
LD B,A ; SAVE SUM BACK TO CHKSUM 
CALL CMPDH ; COMPARE D TO H 
IR NZ, TWRTL ; KEEP WRITING DATA UNTIL NZ=FALSE 
LD A,B ; LOAD THE CHKSUM TO A 
CALL COUT ; WRITE CHECKSUM ONCE 
CALL COUT ; WRITE CHCKSUM TWICE 
IR COUT ; WRITE CHKSUM A THIRD TIME 
COUT: PUSH AF ; PUSH DATA TO BE WRITTEN ONTO AF 
IN A, CTAPST) ; READ STATUS PORT MSB(TBMT, PE, FE,DAV,XX,XX,XX,XX)LSB 
AND 80H ; 80H=[1,0,0,0, 0,0,0,0] IF TBMT=1, TRANSMIT BUFFER NOT RDY 
IR Z,COUT+1 ; IF TBMT <> 0 KEEP CHECKING 
PoP AF ; POP DATA TO BE WRITTEN TO TAPE 
OUT (TAPE) ,A ; WRITE DATA TO TAPE 
RET 
STRM: LD HL,MSG17 STREAM ROUTINE-GENERATES A SERIES OF "FFH" AND "E6H"...[FF] [E6] [FF] [E6] [FF] 
CALL MARQ START THE ROUTINE AND RECORD THE OUTPUT TO CASSETTE TAPE 


THIS WILL CREATE A_ "SYNC STREAM TAPE" USED TO CALIBRATE THE TAPE VOLUME 
SET UP 2S1P AY51013 UART ON CASSETTE PORT A 


LD A, 0BOH 


STRML: 


TLOAD: 


TREAD: 


TRDO: 


IDB1: 
IDB2: 
IDB3: 


TRD1: 


IDB4: 


IDBS: 


TRD2: 


TRD3: 


TRD4: 


TRDS: 


TUNE: 


PoP 
CALL 
POP 


POP 
CALL 


CALL 


POP 
POP 
CALL 


RET 


OUT. 


RET 


AND 


RET 
INC 
ADD 
RET 


OUT 


(TAPST) ,A 
A,OFFH 
COUT 

A, OE6H 
couT 
STRML 


TARBEL 


HL,MSG20 
MARQ 
DHXIN 

HL 


SPACE 
HL,MSG11 
MARQ 
EXEC3 


A,11H 
(TARBL) ,A 


c,4 
(7RD1+1) 
A,C 

4 

NZ, TRD2 


A,10H 
(TARBL) ,A 
A, 10H 


A, (TARBL) 
01H 


NZ, CIN 
A, (TARBL+1) 


HL 
CHL) ,A 
A,B 
B,A 


A,11H 
(TARBL) ,A 


WRITE BOH TO "CONTROL WORD PORT" MSB(NP,TSB,NB2,NB1,EPS,X,X,X)LSB 
BOH=(1,0,1,1, 0,0,0,0)=(NO PARITY,1 STOP BIT,8 DATA BITS,ODD PARITY) 
WRITE [FF] TO TAPE 


WRITE [E6] TO TAPE 


KANSAS CITY TAPE 


TARBELL TAPE 


TAPE FORMAT: [FF] [FF] [FF] [3C] [E6] [DD] [DD] [DD] [DD] [1A] [FF] [CHKSUM] [FF] [FF] [FF] [FF] 

[FF] (FF][FF]= TAPE LEADER; [3C]=START BYTE; [E6]=SYNC BYTE; [DD]=DATA BYTES; 
[1a]+[FF]=STop BYTES; [CHKSUM]=CHECKSUM...SIMPLE SUM OF DATA BYTES 

END OF RECORD- [1a] [FF] [CHKSUM] [FF] [FF] [FF] [FF] 

NOTE: ROUTINES ARE FROM THE DON TARBELL MANUAL WHERE POSSIBLE AS THEY SEEM MUCH BETTER 
THAN THE JADE TARBEL ROUTINES...REFERENCE "WRITING PROGRAMS FOR THE CASSETTE INTERFACE", 
"CASSETTE INTERFACE INPUT ROUTINE”, "CASSETTE INTERFACE OUTPUT ROUTINE" 


LOAD MEMORY FROM TAPE ROUTINE-CASSETTE INTERFACE INPUT ROUTINE 
GET STARTING MEMORY ADDRESS...XXYY <CR> HL=(XX), DE=(YY) 

LOAD MESSAGE PROMPT 

DISPLAY MESSAGE 

GET STARTING MEMORY ADDRESS...XXYY <CR> HL=(XX), DE=(YY) 


TARBELL OUTPUT PORT J1 BIT DO=CASSETTE MOTOR CONTROL ON/OFF 
IF THE CHKSUM MATCHED (FLAG Z IS TRUE), THEN EXIT 

IF THE CHECKSUM DID NOT MATCH... 

LOAD TAPE CHKSUM 


LOAD THE CALCULATED CHKSUM 


"BAD" MESSAGE 


LOAD 11H TO "A" BECAUSE WE WANT TO RESET THE INTERFACE & START THE CASSETTE MOTOR 

WRITE 11H TO THE STATUS PORT (6EH) MSB[X,X,TXRDY,RXRDY, 0,0,0,D0]LSB 

mMsB[0,0,0,1, 0,0,0,1]LSB = 11H 

B=CHKSUM BYTE, SET TO "00" 

REG "C" IS USED AS PATTERN IDENTIFER=(1) [FF] ; (2) [3c]; (3) [E61]; (4) [1A]; (5) [FF] following [1] 


IF Z=TRUE; [FF][3C][E6] PATTERN FOUND SO GO GET DATA [DD] 
GET CASSETTE DATA IN REG "A" 
LEADER [FF] 


START BYTE [3C] 
SYNC BYTE [E6] 


RESET "C" TO 0 
TRY AGAIN TO FIND PATTERN 


TO GET HERE, THE PATTERN [FF][3C][E6] WAS FOUND..."C"=3 


RESET "C" TO 0 


PUSH [DATA] ONTO HL 
FOUND [1A], COULD BE A STOP BYTE... 


FOUND [FF], COULD BE "END OF RECORD" 


[1A] FLAG ? 
[DATA]=[DATA1] AND IS IN HL 
GET NEXT DATA BYTE 


[1A] [FF] FLAG ? 


IF C=4; THEN [1A][FF] IS TRUE AND C=5 


GET C 
IF c=4; [1a] FLAG SET 


IF c=5; [1A] [FF] FLAG SET 


Pop [DATA] FROM HL INTO "A" 
[DATA] INSERTED TO MEMORY (HL); HL INCREMENTED; CHKSUM UPDATED 
GO GET MORE DATA 


TO GET HERE, END NOT FOUND AND [DATA1]=HL, [DATA2]=HL 

"C" IS REUSED AS VARIABLE STORAGE; [DATA2] STORED IN "C" 

Pop [DATA1] FROM HL INTO "A" 

[DATA1] INSERTED TO MEMORY (HL); HL INCREMENTED; CHKSUM UPDATED 
RESTORE [DATA2] TO A 

[DATA2] INSERTED TO MEMORY (HL); HL INCREMENTED; CHKSUM UPDATED 
GO GET MORE DATA 


TO GET HERE, "END OF RECORD" FOUND AND [DATA1]=1a, [DATA2]=FF 
STOP BYTE AND FOLLOWING FF ARE DISCARDED 

GET TAPE [CHKSUM] 

REGISTER "C" IS REUSED; STORE TAPE [CHKSUM] = C 

GET CAKCULATED [CHKSUM] = A 

COMPARE TAPE TO CALCULATED CHKSUM 

CHKSUM MATCHED. ..SHUTDOWN AND RETURN 

CHKSUM DID NOT MATCH, RETURN WITH CP=NZ 


LOAD 10H TO "A" BECAUSE WE WANT TO RESET THE INTERFACE & STOP THE CASSETTE MOTOR 
WRITE 10H TO THE STATUS PORT (6EH) MSB[X,X,TXRDY,RXRDY, 0,0,0,D0]LSB 
SET Z FLAG 


READ STATUS PORT (6EH) MSB[0,0,0,1, 0,0,0, 
01H=[0,0,0,0, 0,0,0,1]...IF RXRDY=0 AND DO: 
LOOP WAITING FOR RXRDY=0 

LOAD DATA WORD FROM DATA PORT (6FH) 


LSB RDY=MSB[0,0,0,0, 0,0,0,1]LSB =01H 


1) 
=0 CASSETTE MTR=ON, RXRDY=0=RDY TO RECEIVE 


LOAD DATA INTO MEMORY, CHKSUM, AND INCREMENT HL 


ROUTINE TO ALLOW FOR ADJUSTMENT OF TAPE PLAYER VOLUME CONTROL-NEED SYNC STREAM TAPE AS INPUT 
LOAD 11H TO "A" BECAUSE WE WANT TO RESET THE INTERFACE & START THE CASSETTE MOTOR 
WRITE 11H TO THE STATUS PORT (6EH) MSB[X,X,TXRDY,RXRDY, 0,0,0,D0]LSB 


TUNO: 


TUN1: 
TUN2: 


TUN3: 


TWRIT: 


THE LEADER 


TwrRT1: 


RUNNING 


THE LEADER 


cour: 


STRML: 


ENDIF 


CLRSCN 
B,30 
HOME 
HL,MSG16 
MARQ 
SPACE 
CRLF 


HL,MSG12 
MARQ 
DHXIN 
TWRIT 
EXEC3 


A,21H 
(TARBL) ,A 
HL 

HL, OFFFFH 
DELAY 


(TARBL) ,A 


HL,O7FFFH 
DELAY 


A,00H 
(TARBL) ,A 
CRLF 
HL,MSG19 
MARQ 


AF 
A, (TARBL) 
20H 


NZ, COUT+1 


AF 
(TARBL+1) ,A 


HL,MSG17 
MARQ 
B,1EH 
A,11H 
(TARBL) ,A 
A,OFFH 
COUT 


B 
NZ, STRM1 
A, OE6H 
couT 
STRM2 


} AFTER "DELAY", REG "A" SHOULD CONTAIN (00)..."A" SUB "A" 


> WRITE 


mMsB[0,0,0,1, 0,0,0,1]LSB = 11H 

CLEAR THE CONSOLE 

B IS A LINE COUNTER TO PRINT 30 LINES TO THE CONSOLE 

MOVE CURSOR TO UPPER TOP LEFT OF SCREEN 

B IS A LINE COUNTER TO PRINT 30 LINES TO CONSOLE 

LOAD A "SYNC STREAM TAPE" AND OBSERVE DISPLAY FOR "$" OR "+" 
ADJUST THE TAPE PLAYER VOLUME TO ONLY DISPLAY "+" 

SEND CRLF TO CONSOLE 

LOAD COUNTER TO 40; PRINTS 40 "+" OR "$" TO CONSOLE = 1 LINE 
INPUT TAPE DATA 

IS DATA [FF]; IF IT IS, Z=TRUE 

DATA IS LEADER, TRY AGAIN...OHERWISE CONTINUE BELOW 

Le"+" 

IS DATA [E6]_THE SYNC BYTE...IF SO, Z=TRUE 

IF FOUND [E6] GOTO TUN3...(L="+" GOOD/L="$"BAD) 

Leg" 


SEND L TO CONSOLE 
DECREMENT COUNTER H 
IF H=0, START ALL OVER AGAIN 


ROUTINE TO SAVE A BLOCK OF MEMORY TO THE TARBELL TAPE 

FORMAT: [FF] [FF] [FF] [3c] [E6] [DD] [DD] [DD] [DD] [1A] [FF] [CHKSUM] [FF] [FF] [FF] 
MESSAGE PROMPT FOR START/END MEMORY ADDRESS INPUT 

GET STARTING MEMORY ADDRESS...XXXX,YYYY <CR> HL=(START ADDR), DE=(END ADDR) 
THE "TAPE WRITE” ROUTINE 


MSB[X,X,TXRDY,RXRDY, X,X,X,DO]LSB 21H=[X,X,1,0, 0,0,0,1]...SET TXRDY=1 AND DO=1...MTR ON 
WRITE TO STATUS PORT (6EH), THIS SHOULD RESET THE TARBELL TXRDY TO NOT RDY AND START THE MTR 
STORE HL ON THE STACK (START ADDR) 

LOAD DELAY SEED 

WAIT A BIT, THIS ASSUMES WITH NO DIRECT OUTPUT, THE TARBELL WRITES [FF][FF][FF] TO TAPE AS 


LEADER IS FINISHED, RECOVER HL 0 


LOAD THE CHCKSUM "B" WITH (00) 
LOAD "A" WITH THE START BYTE (3CH) 
Cc] TO THE TAPE 

A" WITH THE SYNC BYTE (E6H) 


LOAD " 


; WRITE [E6] TO THE TAPE 


DECREMENT THE STARTING BLOCK OF MEMORY ADDRESS STORED IN HL 
LOAD REG "A" WITH THE BYTE OF MEMORY IN LOCATION (HL) 
WRITE [(HL)] TO TAPE 

ADD "A" + CHKSUM 

STORE RESULT TO CHKSUM 

COMPARE START ADDRESS TO END ADDRESS 

IF NC=TRUE, KEEP SENDING MEMORY BYTES TO TAPE 

LOAD "A" WITH FIRST PART OF STOP BYTE (1AH) 

WRITE [1A] TO TAPE 

LOAD "A" WITH SECOND PART OF STOP BYTE (FFH) 

WRITE [FF] TO TAPE 

LOAD REG "A" WITH THE CHECKSUM VALUE 

WRITE [CHKSUM] TO TAPE 

AGAIN SET TXRDY=1 AND DO=1 

WRITE TO STATUS PORT (6EH), THIS SHOULD RESET THE TARBELL TXRDY TO NOT RDY AND KEEP MTR 


; LOAD DELAY SEED...SHORTER THAN STARTING LEADER 


WAIT A BIT, THIS ASSUMES WITH NO DIRECT OUTPUT, THE TARBELL WRITES [FF][FF][FF] TO TAPE AS 


MSB[X,X,TXRDY,RXRDY, X,X,X,DO]LSB OOH=[X,x,0,0, 0,0,0,0]...SET TXRDY=0 AND DO=0...MTR OFF 
WRITE [0,0,0,0, 0,0,0,0] TO STATUS PORT; (TURN OFF CASSETTE MTR) AND SET RXRDY=TXRDY=0 


LOAD MESSAGE "END " 
DISPLAY MESSAGE 


STORE BYTE TO BE WRITTEN TO TAPE IN AF 
READ STATUS PORT (6EH) 
MSB[X,X,TXRDY,RXRDY, X,X,X,X]LSB 20H=[X,X,1,0, 0,0,0,0]...IF TXRDY=1 NOT RDY TO TRANSMIT 


TARBEL_RDY TO TRANSMIT; POP DATA BYTE FROM AF 
WRITE [DATA] TO TAPE 


STREAM ROUTINE-GENERATES A SERIES OF "FFH" & “E6H"... [FF] [FF] [FF] [E6] [E6][E6] [E6] [E6] [E6]... 
START THE ROUTINE AND RECORD THE OUTPUT TO CASSETTE TAPE 

THIS WILL CREATE A "SYNC STREAM TAPE" USED TO CALIBRATE THE TAPE VOLUME 
MSB[X,X,TXRDY,RXRDY, X,X,X,X]LSB 11H=[X,X,1,0, 0,0,0,1]...IF TXRDY=1 NOT RDY TO TRANSMIT 
SEND TO STATUS PORT (6EH) TO RESET TARBELL AND START TAPE RECORDER MOTOR 


WRITE [FF] TO TAPE 
DECREMENT COUNTER B 
IF NOT ZERO, CONTINUE WRITING LEADER 


WRITE [E6] TO TAPE 
CONTINUE UNTIL TAPE RECORDER IS SHUT OFF 


TARBELL TAPE = 


SGEGEGGSGCI IIR TCI SUBROUTINES BELOW J GdGUGrGFSr arena Iibiiiiii iobiobiiciinr 


VERIFY: 


VRFYL: 


CMPDH: 


LD 
CALL 
CALL 
EX 
DEC 
DEC 
INC 
INC 
LD 
cP 
IR 
CALL 
CALL 
CALL 
LD 
CALL 
CALL 
LD 
CALL 
CALL 
JR 
IP 


EX 
EX 
DEC 
LD 
OR 
IR 
RET 


PUSH 


HL,MSG18 
MARQ 
TRPIN 
DE, HL 


HEXOUT 
CMPDH 
NC, VRFY1 
EXEC3 


(SP) ,HL 
(SP) ,HL 
HL 

A,L 


H 
NZ,DELAY 


AF 


VERIFY ORIGINAL MEMORY BLOCK TO COPIED/MOVED MEMORY BLOCK 
IF MISMATCH, PRINT...<ORIG ADDR> <ORIG DATA> <COPY/MOVE DATA> TO CONSOLE 
CALL TRIPLE INPUT...X,Y,Z WHERE X=START ORG(HL), Y=END ORG(DE), Z=START MOVE/COPY BLOCK(BC) 


INCREMENT ORIGINAL STARTING ADDRESS HL 

INCREMENT COPIED/MOVED STARTING ADDRESS BC 

LOAD "A" WITH COPY MEMORY DATA (BC) 

CP (BC) TO (HL); IF (BC)=(HL) Z=TRUE 

(BC) AND (HL) MATCH, ALL IS GOOD SO CONTINUE CHECKING 
(BC) <> (HL), ERROR EXISTS; PRINT CRLF TO CONSOLE 
SEND CURRENT HL VALUE TO CONSOLE...ORIG MEMORY ADDRESS 
SEND SPACE TO CONSOLE 

LOAD "A" WITH (HL) LOCATION CONTENTS 

SEND HEX VALUE (HL) TO CONSOLE 

SEND SPACE TO CONSOLE 

LOAD "A" WITH (BC) LOCATION CONTENTS 

SEND HEX VALUE (BC) TO CONSOLE 

COMPARE START HL TO END ADDRESS DE 

IF START <> END KEEP CHECKING 

ALL DONE 


DELAY USES SEED STORED IN HL AS A BASIS FOR TIME DELAY 

WASTE TIME FOR DELAY 

WASTE TIME FOR DELAY 

DECREMENT SEED IN HL....example 20000=HL=[4E] [20]...DEC HL=[4E] [1F] 
REGISTER "L" AS IN HL...example L=[1F] 

REGISTER "H" AS IN HL...example H=[4E] 

KEEP DECREMENTING UNTIL HL=[00] [00] 


COMPARE 'D' TO 'H'...H[XX XX]L AND D[XX XXx]E 


cMP1: 


DHXIN: 


HXIN2: 


TRPIN: 


DHXOT = 


HEXOUT: 


HXOT1: 


CRLF: 


SPACE: 


CLRSCN: 


CLEAR: 


CALL 


HOME : 
CALL 


MARQ: 
MAR2: 


CONOUT: 


CONO1: 


CONO2: 


LD 
cP 
IP 
LD 
cP 
IP 
POP 
SCF 
RET 
POP 
SCF 
CCF 
RET 


CALL 
PUSH 
cP 
CALL 
EX 
POP 
RET 


A,D 


H 
NZ,CMP1 
A,E 


L 
NZ,CMP1 
AF 


AF 


ODH 
NZ,HEXIN 
DE,HL 

HL 


A, OAH 
CONOUT 
AF 


AF 

A, 20H 
CONOUT 
AF 


1BH, 5BH, 32H, 4AH 
03H 
HL, CLEAR 


IF D <> H THEN GOTO CMP1, [CLEAR CARRY] AND RETURN 


IF E <> H THEN GOTO CMP1, [CLEAR CARRY] AND RETURN 
H=D AND L=E [SET CARRY] AND RETURN 


POP WHAT WAS SAVED IN AF 
SET CARRY FLAG 
CLEAR CARRY FLAG 


OUTPUT A SPACE AND GET SOME CONSOL INPUT 

PUSH 'HL' ONTO THE STACK 

COMPARE...subtract <REG A> - <OD> = NZ...IS IT 'ODH' A <CARRIAGE RTN> 
IF 'NOT ZERO' ... NOT <CR>... GO GET MORE 

<CR> DETECTED SO EXCHANGE THE 'DE' AND 'HL' REGISTERS 


THIS IS THE MAIN "PARAMETER-GETTING" ROUTINE. 
THIS ROUTINE WILL ABORT ON A NON-HEX CHARACTER. 
IT TAKES THE MOST RECENTELY TYPED FOUR VALID 
HEX CHARACTERS, AND PLACES THEM UP ON THE STACK. 
(AS ONE 16 BIT VALUE, CONTAINED IN TWO 

8-BIT BYTES.) IF A CARRIAGE RETURN IS ENTERED, 
IT WILL PLACE THE VALUE OF "0000" IN THE STACK. 


LOAD 'A' WITH 20H 'SPACE' AND SEND TO CONSOLE OUTPUT 


LOAD HL WITH '0'...THIS ROUTINE IS FOR HEX INPUT, SO REJECTS ANYTHING ELSE 
GET CONSOL INPUT AND RETURN IN 'REG A' CAN BE ‘OOH TO 7FH' 
COMPARE...subtract <REG A> - <0> = M...IF NOT 'O' OR LARGER RETURN 

IF 'SIGN NEG' RETURN 

COMPARE...subtract <REG A> - <F'+1> = P...IF IT IS LARGER THAN 'F' IE NOT HEX RETURN 
IF 'SIGN POS' 

COMPARE...subtract <REG A> - <9 + 1> = M...IF IT IS LARGER THAN '9' 

IF 'SIGN NEG' GOTO HXIN2 

COMPARE...subtract<REG A> - <A> = M...IF IT IS NOT 'A' THEN RETURN 

IF 'SIGN NEG‘ 

ADD "A" + 9 + "CARRY FLAG 0 OR 1" 


MULTIPLY BY 16 


"OR' IN THE SINGLE NIBBLE 
GET SOME MORE FROM CONSOL IN 


TRPIN: INPUT 3 BYTES...PLACE IN [HL],[DE],[BC]...ex: (hh11),(ddee),(bbcc) <CR> 
EXCHANGE THE DE AND HL REGISTERS - LOAD ALL THREE PAIRS WITH HEX 
ENTRIES 


DISPLAY CURRENT HL VALUE 


PUSH CONTENTS OF AF ONTO THE STACK 

A IS LOADED WITH 20H = 'SPACE' 

A 'SPACE' IS SENT TO THE CONSOL OUTPUT 
POP FROM THE STACK BACK TO AF 


ROUTINE TO CLEAR THE CONSOLE SCREEN AND HOME TO UPPER LEFT CORNER 
VT-100 'ESC' COMMANDS. ..CLR_SCRN='ESC'[2J HOME='ESC'[H 


ESC=1BH [=5BH 2=32H J=4AH 
O3H=END OF TEXT 


1BH,5BH,48H ; ESC=1BH [=5BH_H=48H 
03H 


HL, HOME 


A, (HL) 
CONOUT 
HL 

03H 
NZ,MAR2 


AF 
A, (KBDST) 


A, (KBDOT) 
NZ, CONO2 
CONO1 


AF 
(KBDDT) ,A 


O3H=END OF TEXT 


MARQUEE ROUTINE TO SEND MESSAGE IN (HL) TO CONSOLE SCREEN 


LOOKING FOR "03H" TO INDICATE END OF MESSAGE 


ROUTINE FOR CONSOLE OUTPUT TO DISPLAY 

STORE CONTENTS OF 'A' REGISTER "OUTPUT CHARACTER" IN 'AF' REGISTER PAIR 
LOAD STATUS PORT INTO ‘A’ 

STATUS PORT=MSB[0] [0] [0] [0] [0] [0] [0][0]LSB MEANS DISPLAY BUSY 

STATUS PORT=MSB[0] [0] [0][0][0][1][0][0]LSB MEANS DISPLAY READY 

"AND' REGISTER 'A' WITH 04H=mMSB[0] [0] [0] [0] [0][1] [0] [0]LsB 

IF RESULT IS NOT-ZERO, JUMP OUT OF LOOP TO CONO2 


RESTORE "OUTPUT CHARACTER" TO REGISTER 'A' 
SEND "OUTPUT" TO (KBDDT) 


CONIN: 


CONT1: 


IN 
AND 
IP 
IP 
IN 
AND 


cP 


NOT ON KEYBOARD 


ECHO: 


PTXT: 


HXOT4: 


HXxO2: 


HXO3: 


BITS1: 


BITS: 


SF76E: 


BAD: 


IP 
cP 
IP 
SUB 
cP 
IP 
IR 


LD 
cP 
RET 
CALL 
INC 
JR 


LD 
CALL 
LD 
LD 
RRA 
RRA 
RRA 
RRA 
CALL 
LD 
AND 
cP 
IP 
ADD 
ADD 
PUSH 
LD 
CALL 
POP 
RET 


PUSH 
PUSH 
CALL 
LD 
CALL 
POP 
POP 
RET 


LD 
CALL 
LD 
PUSH 
RRCA 
RRCA 
RRCA 
RRCA 
CALL 
POP 
CALL 
LD 
IP 


AND 
ADD 
DAA 
ADC 
DAA 
LD 

RET 


PUSH 
PUSH 
LD 
CALL 
POP 
POP 
RET 


LD 
CALL 
SLA 
LD 
ADC 
LD 
CALL 
DINZ 
RET 


PUSH 
PUSH 
LD 
CALL 
POP 
POP. 
RET 


LD 
CALL 


IN 
XOR 


A, (KBDST) 


A, (KBDIN) 
NZ,CONI1 
CONIN 

A, (KBDDT) 


7FH 
61H 


C, ECHO 
7CH 
NC, ECHO 
20H 
18H 
Z,EXEC4 
CONOUT 


A, CHL) 
03H 


Z 
CONOUT 


A,C 
CONOUT 


OFH 
A, 90H 


A,40H 


C,A 


AF 
HL 
HL,MSG11 
MARQ 

HL 

AF 


HL ,MSG22 
MARQ 


A, (WAIT) 
A 


ROUTINE FOR CONSOLE INPUT FROM KEYBOARD 

STATUS PORT=MSB[0] [0] [0] [0] [0] [0] [0][0]LSB MEANS NO CHARACTER WAITING 

STATUS PORT=MSB[0] [0] [0] [0] [0] [0][1][0]LSB MEANS CHARACTER IS WAITING 

"AND' REGISTER 'A' WITH O2H=MSB[0][0][0][0] [0] [0][1] [O]LsB 

IF RESULT IS NOT-ZERO, JUMP OUT OF LOOP TO CONI1 

RESULT IS ZERO, SO GO BACK AND CHECK STATUS PORT AGAIN 

INPUT FROM DATA PORT 01H FOR PROPELLER CONSOLE 

CODE BELOW FILTERS INPUT AND RETURNS... 

ASCII RANGE OOH-7FH COVERS ALL 128 CHARACTERS; PASSES ALL ASCII UP TO 7FH, THEN 'A'= 0,1,2... 


61H-7FH ARE LOWER CASE LETTERS; ASCII (OQH-61H)=C;ASCII (62H-7FH)=NC;ASCII (80H-FFH)=C BUT 


SENDS ASCII(OOH-60H) TO OUTPUT CONSOLE DISPLAY; NOTE-CARRY SET IF NEG OR GREATER THAN FF 
ONLY ASCII(61H-7FH) REMAIN; FILTER OUT ASCII < 7CH 

SENDS ASCII(7DH-7FH) TO OUTPUT CONSOLE DISPLAY ONLY ASCII(61H-7CH) REMAIN 

ONLY ASCII(41H-5CH) REMAIN...IE...(A TO \) WHICH GO TO CONSOLE DISPLAY 

18H='CAN' OR CANCEL 

IF 'A' IS 'CAN' RETURN WITH NO ACTION 

SEND 'A' TO CONSOLE OUTPUT DISPLAY 


PRINT A MESSAGE 


IF [03H], THEN END AND RETURN 


16 HEX OUTPUT ROUTINE 


SEND TO CONSOL WHAT'S IN REGISTER A 


PRINT [HL] AND A SPACE 


PRINT [HL] ON CONSOL 


STORE "H" IN "AF" 
MSB[X000 000]LSB = 
MSBLOX00 000]LSB = MSB[00x0 0000]LSB 
MSBLOOXO 000]LSB = MSB[000x 0000]LSB 
MsBLO00X 000]LSB = mMsB[0000 x000]LSB 


RESTORE "H" FROM "AF" 


MsB[0x00 0000]LSB 


CONVERT HEX TO ASCII 


DISPLAY 8 BITS OF [A] 


DISPLAY 8 BITS OF [E] 


PRINT BAD 

SAVE ORIGINAL 'AF' AND 'HL' 
PRINT 'BAD: ' TO CONSOL 
PRINT MARQUEE ROUTINE 
RESTORE HL 

RESTORE AF 


OUTPUT MESSAGE 
OUTPUT TO CONSOLE 


THIS ROUTINE CAN ACCESS THE FLOPPY DISK CONTROLLER'S SIX I/O PORTS STARTING AT F8H 

IT CAN BE USED TO CREATE CBOOT CODE IN MEMORY AT LOCATION (007D)H 

THIS CODE SEEMS TO WORK ON WESTERN DIGITAL FD-1771 CONTROLLERS BUT MAYBE NOT LATER ONES 
AS THE PORT VALUES MAY HAVE BEEN CHANGED. 


(OF8H)-OUT DISK COMMAND PORT 
(OF8H)-IN DISK STATUS PORT 

(OF9H)-1/0 TRACK REGISTER PORT 
(OFAH)-1/0 SECTOR REGISTER PORT 
(OFBH)-I/0 DATA PORT 

(OFCH)-IN DISK WAIT PORT (XRDY/PRDY) 

(OFCH)-OUT DISK EXTENDED COMMAND PORT 


THE CODE APPEARS VERY SIMILAR TO THE BOOT LOADER FOR TARBELL 1011D (FD-1771) CONTROLLER 
IT'S PURPOSE IS TO READ THE FIRST SECTOR OF TRACK 0 INTO MEMORY AT OOOOH, AND THEN EXECUTE IT 


WAIT FOR HOME 
COMPLETE 


RLOOP: 


RDONE: 


LD 
LD 
INC 
OUT 
LD 
OUT 
IN 
OR 
IP 
IN 
LD 
INC 
IP 
IN 
OR 
IP 
HALT 


END 


(DCOM) ,A 
A, (WAIT) 
A 


P, RDONE 
A, (DDATA) 
CHL) ,A 
HL 

RLOOP 

A, (DSTAT) 
A 


Z, SBOOT 


SET L=0 
H=0; L= 
SET 
SECTOR=1 
READ SECTOR 


WAIT FOR DRQ OR INTRQ 
SET FLAGS 

DONE IF INTRQ 

READ A BYTE OF DATA 

LOAD IT INTO MEMORY 
INCREMENT MEMORY POINTER 
DO IT AGAIN 

READ DISK STATUS 

SET FLAGS 

IF ZERO, GO TO SBOOT AT 007DH 
DISK ERROR, SO HALT 


